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00U000 IDENTIFICATION DIVISION. 
000010 

0.0.0020 PR0G§AM-IQ. .. CCHOL .*lASlEj_.l£_i_ fc XV..,-.0*.UQ - - 

000030 INSTALLATION, AUTO-PROGHAMMl NG, S&E 01 Vi PASADENA. 
000040 DATE WRITTEN, REWRITTEN MAY 1*66. 

Q00Q50 DATE-COMPILED. TUOAY. 

000060 SECURITY. NONE. 

000061* THIS MATERIAL IS PROPRIETARY TU BURROUGHS 

Q.O0.Qj62* C.QRPO.H.AT.I.Q.W ,.AkO ..IS ..MUX. IX1_ . BX-REPRUQUCEU..i USEO 

000063* or disclosed except in accordance with program 
000064* license or upon wrltttn authorization of the 
000065* patent division-- of muargughs corporation* 

000066* DETROIT* MICHIGAN 4823<i. 

000067* COPYRIGHT CC) l96d> 1971, 19/2 

000066* BURROUGHS CORPORATION. OETRUI T * MICHIGAN 

000069* AA32500; 

000070 ENVIRONMENT OIVISJON. 

000080 CONFIGURATION SECTION* 

000090 SOURCE-COMPUTER, B-5000. 

000100 OBJECT-COMPUTER. B-500C, 

000.110 SPECIAL-NAMES, READER IS CaRU CHANNEL 1 IS TOP, - 

000120 INPUT-OUTPUT SECTION. 

000130 FILE-CONTROL. 

000140 SELECT OPTIONAL CPU ASSIGN TQ TAPE RESERVE NO-. 

000150 SELECT OPTIONAL 0PT2 ASSIGN TO TAPE. 

000160 SELECT CDI\ ASSIGN TQ REaUER RESERVE NO ALTlRNATE AREA. 

OO01 70 SELECT P-ROU T ASSIGN. TO -P.Ki NTER RESERVE NO ALTERNATE ABE A. 

000180 SELECT OPTIONAL LOPF ASSIGN TO TAPE. 

000200 SELECT OPTIONAL NOLOPF ASSIGN TO TAPE. 

000210 SELECT UN&LKT ASSIGN- TO TARg. 

000220 SELECT PUNCHF ASSIGN TO PUNCH, 

000230 SELECT TP-FL"1 ASSIGN TO TAPE RESERVE NO ALTERNATE AREA. 

000240 SELECT Tp.FL-2 ASSlG N T..Q T APE RESERVE NO ALTERNATE -AREA* 

000250 SELECT TP-FL-3 ASSIGN TO TAPE RESERVE NO ALTERNATE AREA, 

000260 I-0-CONTROL, 

O00270 APPLY TECHMQUE-A ..ON D.P.TI. 

000280 APPLY TECHNIQUES ON OPT*. 

000290 APPLY TECHMQUE-A On LOPF i 

.00.0.300. APPLY TE.ChNl4UE.-A...0IV..NDLQPF. 

000310 APPLY TECHNIQUE-A ON TP-FL-1. 

000320 APPLY TECHNIOUE-B ON TP-F--2. 

000330 APPLY TECHNIQUES ON TP-FL-3, 

000340 DATA DIVISION, 

000350 FILE SECTION. 

000360 pp qpj2 LABEL RECQfiD„.SlAjjOAR.b.. V.A OF.. ID "ttPj.F UA" 

000370 BLOCK CONTAINS 24 TO 96 CHARACTERS 

000380 DATA RECORD IS QPTF2, 

Q_Q39Q. 01 QPT.F2. 

000400 02 V|_FC2 PC 9(8), 

000410 02 FIDAT, 

.0QO.4ZQ fljL_QElA_EC_..a.Cfll*. _. _ 

000430 «3 0P1B PC X(8) OC 1 TO 10 TIMES DEPENDING ON VLFC2* 

000440 FD OPTl LABEL RECORD OMITTED BLOCK CONTAINS iO RECORDS 

OOO45O DATA RECORD. LS OPTFLi _ _ _■ _. 

000460 01 OPTFi; SIZE 200 AN, 

000470 FD LOPF 

.QO-MaQ iiJL£JL_^lNl_JjNI.__..Q R1CJ_D„.. . _ _ 

000490 LABEL RECORD IS STANDARD 

000500 VALUE OF IDENTIFICATION IS "AAAAAAA" 
.05551.0. _LAy.£_£A_JjQjR_JLS_lftO _ __ „_ 



COBOLTST 



COBOLTST 
05*31-66 
CO.BULTST 
COBOLTST 
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COBOLTST 
C_«_LTST 
COBOLTST 
COBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
CO.Bm.I_T 

CQBULTST 

co^oi-Tsr 

. COBOL! ST 
COBOLTST 
CQBQLTST 
C0B4JL-T-ST 

coboltst 
coboltst 
■cbjjultsi. 
coboltst 
coboltst 
coboltst 

05-J1-66 
COBOLTST 
CQBULTST 
COBOLTST 
COBOLTST 
..C-0-80-L.IS.T.. 

COBOLTST 
COBOLTST 

JCjOBJUJL___T_ 
COBOLTST 
COBOLTST 
CDJULXSI 
COBULTST 
COBOLTST 

-CQBQLJLSJ,. 
COBULTST 
COBOLTST 
COBO LTST 



COBULTST 
COBOLTST 
.CJ1BQJ-TJ! 
COBOLTST 
COBOLTST 
CQ Bff LTST 
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5.1 

1 
54 



000520 

000530 

Qfl.P5.40_ 

000550 

000560 

000570 

000580 

000590 

..0046(10 

000610 

000620 

000430 

00O6ao 

000650 
000660 
000670 
000680 
Q Q.Q69Q 
000700 
000710 
000720 
000730 
000740 
QD.Q750 
000760 
000770 
000 780 
000790 
000800 
000810 
000820 
000830 

000920 
000930 
000940 
000950 
000960 
000970 
0.0 0980 
000990 
001000 
0010 10 
001020 
001030 
001040 
001050 
001060 
QQ1Q7Q 
001080 
001090 
J0.Qil.OQL 
001110 
001120 

:..ft_UJLlQ 

001140 
001150 

J__U.16.Q. 
001170 
001180 

J___ll____. 



01 



01 



FD 



01 



01 



FD 



01 



01 



01 



DATA RECORDS 
L0PFH1. 

04 LQP.NU ... PC 9 C _> - * 

04 FILLER PC xC3). 
04 LOPAN. 

08 LOPCC PC XX 5 J 



AUK. LOPFR* LUPFR1 



QC.S* 



04 FILLER 
04 LQPAA 

.04 FILLER 

LOPFR. 
02 REC1 SZ 
04 R-1P1 
02 REC2 SZ 



PC 
PC 
PC 



X(3). 
XC8), 
XC164, 



80, 

OC 10- 
40, 



sz a 



04 R2P1 SZ 5 NUMERIC QC 8, 

NOLOPF 

BLOCK CONTAINS 50 RECORDS 
LABEL RECORD IS 0MITTED 

RECORDING MODE IS. ND AT STANDARD 

DATA RECQRCS ARE N|_OPFR# NLOP. 

NLOP. 

04 NLNU PC 9C5), 

04 FILLER PC XC3>, 

04 NLOAN, 

08 NLOC PC XC5- . OC 9. 



PC 

PC 
PC 

80, 
SZ 8 



XC3), 

X(6). 
XX lb). 



QC 10. 



S- 5 NUMERIC UC 8 



04 FILLER 
04 NLAA 
04 FILLER 
NLOPFR. 
02 NQLFA SZ 

04 NFA1 
02 NOLFB. 

04 NFA2 
UNBLKT 

LABEL RECORD IS STANDARD 
VA OF ID "AAAAAAA" 
S.AVE-FACTCR IS.. .31 
DATA RECORD ARE UNBR» 
RWA1, 

02 Afl.Nl PC 9C.5.). 

02 FILLER PC X(3). 
02 ABA1, 

03.. ACQ 1 PC- .XI 5.1 

FILLER PC X(3). 

ABC1 PC XC8), 



UNBHi,RHAl 



QCLURS 9 TIMES. 



02 
Q2 
02 



FILLER SZ 16,. 
UNBR, 
02 UR1 SZ 80, 

04 UBR1 SZ 6 0C..1Q., 
02 UR2 SZ 40, 

04 UBR2 SZ 5 OC b. 

UNBR1* 

02 F02 SZ 115, 

03 CMPt SZ 64. 

_ a__.El__LES_.S.i...__l___.. 

02 S02 REDEFINE- F02, 
03 CMP2 SZ 30, 

0.3 FILLER. Sl_.._L_u_ 

02 T02 REDEFINES S02. 
03 CMP3 SZ 80. 
___l_ZliLE.a.-S2.. .35_l_. 



COBULTST 
COBQLTST 
CUBULISI 
COBULTST 
C06QLTST 
COBiiLT-ST 
COBULTST 
COBULTST 
- COB OL 1 -54- 



C0B0LTS1 
COBQLTST 
.._C-«^0L4-S-T- 
COBOLTST 
COfaOLTST 
CaU-ULTST 
COBOLTST 
COBQLTST 
CUflULt-S-t 
COBQLTST 
COBULTST 
COBULTST 
COBULTST 
COBOLTST 
COBQLTST 
COBULTST 
COBULTST 
CU-BULTST 
COBOLTST 
COBULTST 
CQBfl.LT ST 
COBULTST 
COBULTST 
.Cfl-BOLTST 
COBOLTST 
COBOLTST 
COBULTST 
COBQLTST 
COBOLTST 

naauLT.sT. 

COBOLTST 
COBOLTST 
. CflMLTSI 
COBOLTST 
COBULTST 

CQHULTST- 
COBQLTST 
COBOLTST 
CQBQLIS.T 
COBOLTST 
COBOLTST 
.COBULTST. 
COBQLTST 
COBOLTST 

.-CLQJ__0_Ll__I_ 
COBOLTST 
COBQLTST 

... X-Q.aQL.Ill. 
COBOLTST 
COBOLTST 

.jmflxiLjsi. 
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46 
19 
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001200 
001210 
001220 
001230 
001240 
001250 
001260 
001270 
001280 
001290 
001300 
001310 
001320 
001330 
001340 
001350 
001360 
001370 
001360 
001390 
001400 
001410 
001420 
001430 
001440 
001445 
001450 
001460 
001465 
001470 
0014B0 
001490 
001500 
001510 
001520 
001530 
001540 
001545 
001550 

001555 
001560 
00J565 
001570 
001580 
001590 
0016C0 
001610 
001620 
001630 
001640 
.0-0 16 SO 
001660 
001670 
.0.0.1.6. EO. 
001690 
001700 
.UQ1Z40-. 
001720 
001730 
SQlUQ 



FO 
01 



FD 



01 



01 



01 



02 FR02 RECEF INES T02. 

03 CMP4 S2 24, 

03 FILLER 51 91. 

02 FV02 REDEFINES FR02, 

03 CMP5 SZ 16. 

03 FILLER HZ 99, 
02 SX02 REDEFINES FVQ2. 

03 CMP6 SZ 8. 

03 FILLER SZ 107* 
02 SV02 REDEFINES SX02. 

03 CMP7 SZ 1. 

03 FILLER SZ 114. 
02 FILLER Si. 5. 
PUNCHF LABEL RECORD OMITTED DATA RECURU PUNREC. 

PUNREC, 

02 PRO SZ 80. 

04 PRCO sz a OC 10, 

cdin recording mode is standard 

file contains 1 recurd 
block contains 86 characters 

record contains 60 . characters. 

label reccrd is standard value of id is "mstcoin" 
data record are cln» c1a>cian. 
cin class is numeric usage is display. 

fidio size is i digit usage is display class 

F1D10A REDEFINES FlDiO PC X, 

fl-020 sz is 2 digits usage display class is numeric. 

3 digits usage display class numeric. 

Redefines fiq3o pc xxx. 

numeric point left 1 places. 

signed point location is left ? flace 
sn point left 3 places, 

sn point left 3. 

picture is s9999v999, 
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02 
02 
02 
02 
02 
02 
02 
02 
02 
02 

02 

02 

02 

02 

02 

02 

02 

CIA, 

02 DAl 



IS NUMERIC, 



F1D30 SZ 

F1D30A 

F1D31 Sz 

F1D42 

F1D52 

F1D63 

F1D73 

F1D8* 

F1D94 

F1D105 



SZ 
SZ 
SZ 
SZ 
PC 
PC 
PC 



DISPLAY 

NUMERIC 
NUMERIC 
NUMERIC 
NUMERIC 



3 

4 
b 

.6 
7 
IS S9(4)V9(4), 

89..C5JV9CU.... . 
S9(5)V9(b). 



FiDiosA Redefines fiuios 

F1PH5 PC S9C6)VS>(b). 
FlDn5A REDEFINES FlOllS 
F1D116 PC S9(5)V9(6). 
F1DH6A REDEFINES F1D116 



PC XC10J . 
PC X(10), 
PC X( 11). 



02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 



SIZE 
SIZE 
SIZE 
SZ 4. 



SZ 

sz 

SZ 



DA2 

0A3 

DA4 

DA5 

DA6 

0A7 

OAfl- SZ 

DA9 SZ 

DAlO SZ 

DAl 1 

PA14 
CIAN. 
02 fl-A-N 1 
02 DAN2 
02 DAN3 
SZ DIM 



IS 

IS 
IS 



1, 

2. 
3. 



5. 
6. 
7. 

e... .... 

9. 
10. 
.4i.-..u.*. 

SZ 14. 



PIC WEE- IS X» 

PICTURE IS X(2). 
PICTURE XXX. 
RC-lSLXAAl*— _. 



COBOLTST 
COBOLTST 
COUQLTST 
COBULTST 
COBOLTST 
COBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
COBOLTST 
COBULTST 
COBOLTST 
COBULTST 
COBOLTST 
COUOLTST 
COBOLTST 
COBOLTST 
COBOLTST 
COBOLTST 

COBOLTST 
COBULTST 

COBOLTST 
COBOLTST 
COBOLTST 
COBOLTST 

06-06-68 
CQUULTST 
COBOLTST 
06-06-68 
G-tJtt&iTSI- 
S, COBULTST 
COBOLTST 
COaULTST 
COBOLTST 
COBULTST 
PHI 1576 
CUBOLTST 
06-06-68 
COBULTST.. 
06-06-68 
COBOLTST 

Q6_-_q.6-6.s 

COBOLTST 
COBOLTST 

COBOL 1ST 

CLbULTST 
COBOLTST 
COa.QLT.ST 
COBOLTST 
COBOLTST 

CU-BULTSI 

COBOLTST 
COBOLTST 

_ CLiIU.LT.S_I... 

COBULTST 
COBULTST 

caecLT-SX. 

COBOLTST 
COBOLTST 
—CO BOLTST . 



3tll 



4J 
■1. 



isr. 

h~ 

S.J 

^. 
BE I 



001750 
001760 
001770 
001780 
001790 
001600 
001810 
001820 
00.1830 
001840 
001850 
0015*0 
001870 
001880 
001890 
001900 
001910 
001920 
001930 
001940 

001950 
001960 
001970 
001980 

001990 
002000 

0020 10 

002020 
002030 
QQ2Q40 
002050 
002060 
002070 
002080 
002090 
002100 
002110 
002120 
002130 
002140 
002150 
QQ2160 
002170 
002180 
002190 
002200 
002210 
0.02220 
002230 
002240 
.0.02250 
002260 
002270 
Q.Q2.2&Q. 
002290 
002300 
Q02.31Q- 
002320 
002330 
.0.02.14.0. 



FD 



01 



01 



01 



02 
02 
02 
02 
02 
02 
02 
02 



DAN5 
DAN6 
OAK 7 
DAN8 
0AN9 
DAN 10 



PC 
PC 
PC 
PC 
PC 
PC 



X£5). 
XC6). 
XC7|. 
XC8). 
XC9). 
XClOi 



DANH PC X(l 1 ). 
DAN14 PC XCia). 

TP-FL=1 CJ.-F1) 

RECORDING WODE IS STANDARD 
FILE CONTAINS ABOUT 10 RfcC 
BLQ C* CONTAINS 2 RECORDS,* 
RECORD CONTAINS 100 CHARAC 
LABEL RECORD IS STANDARD* 

VALUE.- OF ID iS'MPfH.".* 

DATA RECOROS ARE TF.3* TF 1 
SEQUENCED ON FA2l# 
TF13. 

02 parti size so, 

04 PHl SZ 
02 PART2 SUE 40. 

04 PT12 SlZ£ 
TF11 SIZE 56, 
02 FA21 SIZE IS 1 DIGIT U 

02 FA22 SIZE IS 2b CHARAC 
03 FA31 SZ 2 NUMERIC 
03 FA32 SZ 19 AWPHANUrt 
09 FA91 SIZE IS 
09 FA92 SZ 9, 

27 FA271 5Z ........ 



p 
ORDS 

TERS, 
1' TF12* 



8 OCCOhS 10 TIMES. 

MERIC OCCURS 5 TIMES. 



8 NU| 



43 
43 
.43 



KA431 
FA432 
FA433 



SAGE IS DISPLAY CLASS I.S NUMERIC. 
TERS CLASS AN oSAGE DISPLAY, 
iSPLAr. 

ERIC DISPLAY CHARACTERS. 

3 AN CHARACTERS, 



PICTURE IS XX. 
PICTURE XC_J. 
PC XX. 

AN DISPLAY CHARACTERS. 
XC6). 



02 
02 



02 



24 kh DISPLAY. 

A22 Of- If- 11. 
FA93 OF FA'M, 

X. 

XX. 



27 FA272 SZ J 
09 FA93 PICTURE 1« 
03 FA33 PC XC5). 
FILLER SUE 6 AN. 
FA23 SIZE IS 24 DIGIT- USAGE IS COMPUTATIONAL. 

..0.5 FA.51 SZ _.,., CMP., 

05 FA52 SZ 8 CMP, 

05 FA53 SZ 8 CMP, 
FA24. REDEFINES FA23 .S4 

07 FA71 COPY FAJ2 OF F 
13 FA131 REDEFINES 
19 FA1.9.I PC .XX: 
19 FA192 PC X 

07 FA72 PC X£6). 
TF12. 

02 FA25 SZ 10 OCCURS 3 TIMES. 

06 FA61 PC XX. 
06-FA62 PC XX DC. 3 TIMES,. 
06 FA63 PC XX. 

88 FA883 VALUE IS 

.. - ________ 88JL._y.ALuE. IS . 

88 FA885 VALUE IS 
02 FILLER SZ 2. 
... Q2.JT.A2A -CMF -DC 3 1 1 ME-S ... 

08 FA81 PC S9(7)V9t4. 
02 FA27, 

- 06. FAAA OCCURS^ 1 LMJEi*.. 



10, 

.ta_ii_[_u 13, 

THRU 03. 



OC 2. 



CObULTST 

COBOLTST 

COaOLIST 

CDBOLTST 

COBULTST 

COBOLTST 

COBOLTST 

COBOLTST 

COBOL T-ST 

COBOLTST 

PRI 1391 

£080L-T4T- 

COBOLTST 

COBOLTST 

COBUL-TST 

COBOLTST 

COBOLTST 

COBOL-TS-T 

COBULTST 

COBULTST 

COBOLTST 
COBOLTST 
COBOLTST 
COBULTST 
COBULTST 
COBOLTST 
COBULTST 
COBOLTST 

COBOLTST 
COBULTST 
COBOLTST 
COBULTST 

COBULTST 
COBOLTST 
COBOLTST 
COBULTST 
COBOLTST 
COBULTST 
COBULTST 

COBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
COBULTST 
CUBUL-T-.T 
COBULTST 
COBOLTST 
COBOLTST 
COBOLTST 
COBULTST 
..COB.UU.SJ.-. 
COBOLTST 
COBOLTST 
COBOLXSJ. 
COBOLTST 
COBULTST 
CQBUL-TSl- 
COBOLTST 
COBOLTST 
CQBULT-SI 



• t 



"... 

at 

"' 
ji; 1 

'-V 

'.I,.', 
)1 



« 

M 

4B 

4h 

(V 

« 
19 
iO 
il 
52 
j 3 
>4 



00^350 
00ii360 
002370 
002380 
002390 
002400 
002410 
002420 
002430 
002440 
002450 
002460 
002470 
002480 

0024-90 
002500 
002510 
00.2520 
002530 
002540 

..002550 
002560 
002570 
QQ258Q 
002590 
002600 
002610 
002620 
002630 
Q 0.26 40 
002660 
002670 
002680 
002690 
002700 
..QQ271Q 
002720 
002730 

.002740 
002750 
002760 
.00 2770 
002780 
002790 
002800 
002810 
002820 
002830 
002840 
002850 

.00.28-60 
002870 
002880 

_JW3iU90 



FD 



01 



-01 



002900 
002910 
0Q29p 
002930 
002940 
002 £50 



FD 



12 FA121 DC 2 TIMtb, 

23 FA231 OC 2 1 lME.it 
SH FA341 OC id UMfcS, 



02 
02 



45 FA451 PC XX 
REDEFINES FA27 PC XC8) 

FA2£U 

NUMtHIC USAGE 



DC 2 TIMES. 
OCCU«S 8 TIMES, 



DISPLAY SIZE IS 4, 



FA28 

F.A.29 ..REOEF.LMES 

07 FA73 CLA^S 

7 FA74. 

11 F.A111 5Z....2. 

11 FAU2 SZ 5 

07 FA75, 

23 FA.231 NUMERIC S2 5 DISPLAY OCCURS 5. 

07 FA7fc. 

42 FA421 SZ 3> 

£8 FA881 
88 FA882 
07 FA77. 

45 FA456 SZ 5 AN. 

45 FA452 SZ 10 AN* 



AN. 
AN, 



CLASS 



NUMERIC 
VALUE IS 100. 
VALUES ARE 001 THRU 



005, 



45 
45 
45 



66 
66 
66 

66 



FA661 
FA662 
FA663 

FA66Q 



46 

46 

46 

48 

48 
FA453 
FA454 
FA455 

renames 

RENAMES 
RENAMES 
RENAMES 



FAA61 
FA.46 2 
FA463 

FA481 
FA482 
PC 

PC 
PC 



PC 
PC 
SZ 

PC 
PC 

XX OC 
XXX, 

xxx.. 



XX. 
XX. 
6 AN. 

xxx, 

XXX, 
2. 



SIZE 1 DIGIT. 



FA456, 

FA<*5 2. 

.F..A.454 ThHU.._ FA455. 

FA455. 
TP-FL-2 (T-F2); 

RECORDING STANDARD; 

RECORD 100 TO 300J 
LABEL RECORD STANDARD; 
VALUE OF ID "TPFL2"; 
DATA RECORDS TF2i; TF22J 
SEQUENCED ON FB21, 

TF.21.4. 
02 FB21 USAGE DISPLAY; ClAsS NUMERIC; 
02 FB22 SZ 2 NUMERIC DISPLAY DIGITS. 

02... FILLER 5.*.. 5-t - 

02 FB25 CCPY FA23. 
02 F 824 
0.3.F1B32.. COPY FAi2 UL IXll, - 

02 FILLER SZ 6. 

02 FB23 SZ TO 24 CHARACTERS DEPENDING ON FB22, 

o 3 . FB3i. Occurs q tq .a. iim e.s depen d ln_g on._f.b2x. 

05 FB51 PC XXXX, 
05 FB52 PC XXXX, 

. I F22 ,. - - - ---- ----- - - — — 

03 FB26 SZ 1 AN, 

03 FB27 SZ 2 NUMERIC, 

03 F lLLE.R~-S2.-5* 

03 FB33 SI 

0« FB41 

.05 



TO 64 CHARACTERS OEPENDlNG ON FB27, 
OCCURS TO 1 TIMES DEPENDING UN FB26, 
E.a5.1_.C_PI. .XA2Z....0.F X£_tfU 



TP-FL-3 (T*F3>* 
RECORDING MODE STANDARD* 
. LABEL ..RiLCC.B P_ JLTAllP A g.D_ i _ 



COBOLTST 
COBOLTST 

COBULTST 

COBULTST 
COBULTST 

COBOL I SJ 
COBULTST 
COBULTST 
COBULTST 
COBOLTST 
COBULTST 

CQB.ULI-S.I... 

COBULTST 
COBULTST 
COBOLTST. ... 
COBOLTST 
COBOLTST 
G-OBOLTST- 
COBULTST 
COBOLTST 
COJQLTST 
COBULTST 
COBULTST 
COBOLTST 
COBULTST 
COBOLTST 
CUBULTS-T 
COBOLTST 
COBOLTST 
. £0 BOLT SI. 
COBULTST 
COBOLTST 
COB-DLIST 

COBOLTST 
COBOLTST 
CO BOLT SI 
COBULTST 
COBOLTST 

. ... COriLLLIST... 
COBOLTST 
COBULTST 

CILB-lLIiL- 

COBULTST 
COBOLTST 

XJIBLLLIT 

COBOLTST 
COBOLTST 

CJQ.aQ.LIST 

COBOLTST 
COBOLTST 

. ..__COiiiiL-T S I 
COaOLTST 
COBOLTST 

CJ1&0LXS.I. 

COBOLTST 
COBOLTST 

_ CQ-BULl-il- 

COBOLTST 

COBOLTST 
. COBOLTS T 



• t 



211 

29, 
BO 

.11 

.«, 



DEPENDING ON 
_OEPLhLDJiiG...Ilii. 



RECORD IOC TO 300; 
VALUE OF ID "TPFL3"; 

AIA_ RECQKOS .... TF_U. T0.2> IE.3 J 

01 TF31, 

02 FC21 SZ 3 NUMERIC, 

02 F4LLXB...S2 7. 

02 FC22 SZ 12 TO 102 CHARACTERS 
03 FC23 SZ 2 NUMERIC. 

Q3 FXXU-Q C.CU.RS i Ii__lfl. I1H£&. 

04 FC41 PC XX, 
04 FC42 PC X(4). 

_ Q4_XC4-X.PC.Xt4X. _.. 

01 TF32. 

02 F821 CGPY FB21 OF" TF21. 

Q2..FM22 C.C.P *._££_. 2 QF IJ_JLU 

02 FILLER SZ 5, 

02 F825 COPY FB25 OF TF21. 

02 FB2.4 COPY ... FB24 OF ...T.F.2.1 • 

02 FILLER SZ 6, 

02 FB23 COPY F023 OF 1F21. 
01 TF33 SZ 26 TO 80 CHARACTERS. 

03 FC32 COPY FA92 OF FA22. 
03 FC24 PC 99, 

3 FC25 FC 99, 

03 FILLER SZ 7 

03 FC33 UC 1 TO 10 TIMES DEPENDING ON FC25 

04.. FC44 PC-9C3X, 

04 FG45 PC XC3), 
FD PROUT BLOCK 1 RECORD/ 

.LABEL REXOfiO IS.. ST ANOAJ-O; 
VALUE OF ID IS "PQT12"; 
DATA RECORD IS A-R, 

01..A-R _SJ.iE_ia.C AAI.CttA.fiACIE.Rit 

WORKING-STORiGE ^ECTlON. 

77 CIO SZ 1 CLASS NUMERIC USAGE CMP SN. 

77 C2.0.SIZE .2 O.XG-ITSJ OSAGE- CMPi SN. 

77 C30 SIZE 3 CMP SN. 

77 C180 PC S9C16); USAGE CMP, 

77 FLAG- PG --9-99\U ~ - 

77 FLAG1 PC 9999. 



002960 
002970 
QQ2.9_8Q 
002990 
003000 
00.3.0.10 
003020 
003030 
Q01Q.4J.. 
003050 
003060 
0Q3Q7.0 
003080 
003090 
.._____ '.LOO. 
003UO 
003120 
0.03 HO 

003H0 
003150 
003160 
003170 
003180 
.003190 
003200 
003210 

.003220 
003230 
003240 
00 32.5.0.. 
003260 
003270 
Q..Q1280 
003290 
003300 
.00131.0 
003320 
003330 

0033.40 
003350 
003360 77 C02 SIZE 2 CMP SN POINT 

_fl.O3.aZ0 7.7. .__.42_.__J. ...&9S1L9.9. CMP_, 

003380 77 C52 PC S999V99 CMP, 
003390 77 C72 PC S9(5)V99 CMP, 

00 3400 77.C7 3 PC S9.C4 J V 9.9.9 -C MP* 

003410 77 C83 PC S9(5)V9(3) CmP, 
003420 77 C94 PC S9C5)V9(4) CMP, 

Q0J130 77 Clfil RC.19X6)V9X4>_ CKP.* 

003440 77 C1048 PC S9C6.V9U). 
003450 11 C115 PC S9(6)V9C5) CMP. 

JttfllMJDL 77 ..CI 1 .5 .B_E _C .._&. SLC.-U V_9_£ il.*__ 

003470 77 C126 PC S9(6)V9C6) CMP, 

003480 77 C50 PC S9C5) CMP, 

M1MSL _..7_7. .011 Q Pf. S9fll); CMP. 

003500 77 C188 PC S9(10)V9(8) CMP, 
003510 77 OlO PC J9> USAGE 1^ OlSRLAY 

£8352SL - -Il.J&OJK.-jilLJllSSLAl*- 

003530 77 030 PC J9C3) USAGE OISPLAY, 
003540 77 050 PC S9(5). 

J_.Q1550_ _7_ZJttlJJLj&£_ J JL_ltl_Uj 



FC21 . 

F..C23, 



0-EPENOInG UN FC2.4 



LOCATION iS LEFT 2 PLACES, 



COBULTST 
COBOLTST 
...Xi.iiiiL.T-.SI.- 
COBOLTST 
COBOLTST 
COBilLTST- 
COBOLTST 
COBOLTST 

COBOLTST 
COBOLTST 

-COBOLI-S-I.- 

COBOLTST 
COBOLTST 

.--.CaBilLT-SX. 
COBOLTST 
COBOLTST 
C-OBULISI 

COBOLTST 
COBOLTST 
CO-BOLTS J- 
12-22-67 
COBOLTST 
-G-B&UL-T-S-T - 
COBOLTST 
COBULTST 

COBULTST 

COBULTST 

COBOLTST 
C Q BQ L T .SL 

COBULTST 
COBOLTST 
...COBOL TSI- 
COBOLTST 
COBOLTST 

.-caatiLTW- 

COBOLTST 
COBOLTST 
.COBiiLTST: - 
COBULTST 
COBOLTST 
COJJQLJ S.T 
COBOLTST 
COBOLTST 

.COBOL TSJ. . 
COBOLTST 
COBOLTST 
CaB.aLI-S.-T... 
COBOLTST 
COBOLTST 

...CHftO_LX__l~ 



C080LTST 
COBOLTST 
COBOLT ST 



COBOLTST 
COBOLTST 
.C0 B0 LTS3L 
COBOLTST 
COBOLTST 
COBOLTSX- 



52 
S3 ( 
54 
55 
66 ( 
5. 



• • 



;>7 

M 
'nil 






53 



003560 
003570 

0-0 358-0 

003590 
003600 
003610 
003620 
003630 

00.3640 

003650 
003660 
OX) 3670 
003680 
003690 
0.03700 
003710 
003720 
00 3 7 30 
003740 
003750 
003.760 
003770 
003780 
003790 
003800 
003810 
003820 
003830 
003640 
003850 
003860 
003870 
QQ3880 
003890 
003900 
003910 
003920 
003925 
003930. 
003940 
003950 
00 3960 
003970 
003980 
00 3990. 
004000 
00«010 
00*020 
00*030 
00*040 
0040.50. 
00*060 
00*070 
.JJMflJM... 
00*090 
00*100 

.MiilS 

00*120 

00*130 

.9.9*140 



77 



77 
77 
77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

7 7 

77 

77 

77 

77 

77 

77 

7 7 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 
77 
77 
77 
77 
77 
77 



D180 

042 

052 

D73 

D83 

D94 

DlOa 

0115 

.012.6 

0188 

D3P3R 

D3P3-L 

D7P3R 

07P3L 

EZl SZ 

EZ2 

EH1 

EH2 

EH3 

EFl 

EF2 

EF3 



PC JV(1B). 
PC J99V99, 

EC J999V99* 

PC J9(4)V9(3). 
PC J9C5)V9(3), 
PC J9(5)V9t4). 

PC J 9 ( 6 ) V 9 U ) . 

PC J9C6)V9C3)* 

PC J9.C.6JVSC.6J.... 

PC J9C10)V9(8), 

PC 999PPP. 

PC P-PR9 99, 

PC 9(9)P(3). 
PC PPP9C9). 
7 P..T-.1.EFT- 2-ZLKU 
7 NUMERIC PT LtFT 
7 NUMERIC P7 LtFT 
7 PT LEFT 2 CHECK 
7 FT LEFT 2 CP LP 
7 PT LtFT 2 FLLAT 
7--UUHZB.IC PT LtET 
7 NUMERIC PT LEFT 



SZ 
SZ 
SZ 
SZ 
SZ 

sz.. 

52 



EBl SZ 7 PT LEFT 2 BLANK 
EBAL SZ 10 CHECK PROTECT 
EB3 Sz 7 NUMERIC BZ LH 3, 
PEZl PC ZZZ>999.99, 
PEZ2 PC HZ* 119.99. 
PEZ3 PC 4ZZ,ZZZ.ZZ. 
PEZ-L PC "ZZZZZ9.99, 

PEZ-R PC 111119.99** 

+ZZZZZ9.99, 
ZZ2ZZ9.99+. 
+++++++,99, 
-------,99, 



SUPPRESS- CLASS- N.UMERIC, 

2 ZS LEAVING 3 PLACES, 

2 CHECK PROTECT. 
LEAVING 3 CL ASS NUMg« I C , 

3 CLASS NUMERIC. 
DOLLAR SIGN CLASS NUMERIC, 
2. FLOAT SIGN. -LP .3-, 

2 FS LP 3. 



I*HEn 
LP 2 



ZERO CLASS NUMERIC. 
BZ CLASS- NUMERIC, 



PEZPL 

PEZPR 

.PEEPS 

PEF-S 

PfH 

PEHO 

PEH3 

PEH3A 

PEFD 

PEFD2 

PEFD3 

PECR 

PEDB 

PE6 

PEP 



PC 
PC 
PC 
PC 
PC 
PC 
PC 



***>***,**, 



$**,*t9,99. 

****999,95. 
REDEFINES P£h3 PC X(iOJ 
PC.*$.i*M9..t99. 
PC $$$'$$&. 99, 
PC *S$*St$,ZZ. 

PC »«.i»**.*.t?.?C.Ri 

PC $$$,$$$, 99DB. 
PC BBB'999,00, 

PC P00».09V.0U 1 

77 PEBB PC B6B#999.BB. 
77 PEIA PC UWERTG9999KMH99. 
P E I S PC 9 1 U2M 9 9 9/9 9 * 9 ,. 
77 Al PC A, 
A2 PC AA. 

A5~ .EC-At.5-1, 

A7 PC XXXXXXX. 
A8 PC A(8). 

ANl PC. )U _ 

PC XX, 
PC XXX, 
PC._XL*)^ 



77 
71 
77 
77 
11 
77 
77 
77 
77 
77 
77 



AN2 
AN3 



AN5 
AN6 
AN.7 



PC X(5), 
PC XC6J. 

P£ KtHj 



COBULTST 
COBQLTST 

caauLTSi 

COBOLTST 

COBULTST 
CaBQLTST 
CCBOLTST 
COBQLTST 
CUBULTSI 

07-14-70 
COBULTST 
CO-BOLT ST 
COBULTST 
COBULTST 
CQBULTST 
COBOLTST 
COBQLTST 
C08QL-TST- 
CQBQLTST 
COBQLTST 
COBQLTST 
COBQLTST 
COBQLTST 
COBOLTST 
COBQLTST 
COBQLTST 
COBQLTST 
COBQLTST 
COBOLTST 

caaaL-Tsr 

COBQLTST 
COBQLTST 

.CCBQLTST 

COBQLTST 
COBQLTST 
COBQLTST 
COBULTST 
06-06-68 
COB Q.L.I.S I . 
COBQLTST 
COBULTST 
- CflBQklH. 
COBOLTST 
COBQLTST 

C.QBQi.TS.1 

COBQLTST 
COBOLTST 

C.Q.ML.TST 

COBQLTST 
COBQLTST 

— COBOLTST 
06-06-68 
COBOLTST 

C U B Q LTA.T_ 

COBOLTST 
COBOLTST 
COBOL IS I 
COBOLTST 
COBQLTST 

COBOLTST 



li 



d 



9 

10 
11 
12 
13 
14 
15 
1G 
17 
18 
19 
20 
21 
2) 
23 
24 
26 
26 
27 
28 

29 

30 

31 

32 

33 

34 

3! 

36 

37 

38 

39 
WO 



C 

:t<i 



4F 

I- 
46 1 



004150 

004160 

004170 

004180 

00«190 

.004200 

004210 

004220 

00.4.2 3 Q 

004240 

004250 

Q 0.426-0. 

004270 

004280 

004290 

004300 

004305 

Q04310 

004320 
004322 
004330 
004340 
004350 
004360 
004370 
004380 
004390 
004400 
004410 
00 4420 
004430 
004440 
004450 
004460 
004470 
004480. 
004490 
004500 
0.04.5.10 
004520 
004530 
004540 
004550 
004560 
004570 
004580 
004590 
QQ4600 
004610 
004620 
-Q.QA63..Q. 

004640 
004650 

.5.0.4.6.60.. 
004670 
00^680 

.00-46.9.0 
004700 
004710 

-QM22&-. 



01 



01 



01 



01 



01 



01 



01 



01 



77 
77 
77 
77 
77 
77 
77 
77 

7 1 
77 
77 

77 
77 
77 
77 
77 
77 
77 
77 
77 



AN8 PC XCB), 
AN16 PC X C 1 6 ) . 

ANJQ PC-XC3G). _ 

INX PC 99 CMP. 
SWH PC 9 CMP, 

ALlN *.C 9 tap* 

DJL8 PC 9(8) JUSTIF1LU LEFT. 
DJL5 PC 9C5) JS LEFT. 

. ANJ.RE -PC XX-Sl -JU&Xi .LlEO-RlfitiX* 

ANJR5 PC XC5 ) JS RIGHT, 

RG1 PC 9(3) RANGE IS 001 THRU 999, 

..HG2... . PC 9X34 AG tOQ THRU J4Q, 

SYN PC J9C6)V9C3) SYNCHRONIZED LEFT. 
SYNl P C J9<6)V9(4) iY RIGHT. 

SWT R.C 99 C-ttP— 

AN64 PC X(64), 
0UMP1 PC S9(7)V9(3). 



0UMP.3 PC 59C7)V9(3), 
DUMPL1 PC 99999, 
DUMPL2 PC 99999. 



KONS SZ 
88 K 

68 KL 
88 KT 
88 KLT 

KQNA S 
88 KA 
88 KF 

0C2D. 
02 0-2 
03 

0C3D, 
02 D-3 
04 

UC4D, 
02 0*4 
Q4 



CGP, 
02 C-G, 



2, 

VALUE IS 10. 

VALUES ARE 10* 20* 30. 

VALULS ARE 10 THHO 20. 

VALUE 10* 20 THRU 30. 
Z 3. 

VALUE "ABC". 

VALUE IS ZERO. 

SZ lb DC 3. 
0-21 PC XXXXX QC 3. 

SZ 4b DC 3. 
0-31 SZ 15 OC 3. 
06 D-32 PC XXXXX QC 3. 

SZ 81 NUMERIC Ow 3. 

0-4. l SZ 2.7 NUMERIC U.C 3, 

08 0-42 SZ 9 NUMERIC Oc 3 
09 D-43 PC VC3) OC 3. 



09 

09 

09 

09 

AGP, 

02 A-G 

02 A-G 

.02 A-G 

CRP-CMP 
02 CI 

02... £2.i. 

03 
03 

Q2.....C.3- 

02 C4 
02 C5 
- _..._05, 



C-Gl PC J999. 

C-G2 PC 99, 

C-G3 PC 9999. 

C-G4 PC 99, 

1 PC AA, 

2 PC A(4). 

3 PC AA + 

-SC. 

PC 999, 



CC2 PC 
CC3 PC 

.PL 999 . 

PC 9999, 



99, 
999, 



CCA— P_C -S.9.A9V 9.9-9-, 



COBOLTST 
CQBQLTST 
X-OiiU.LX-ST— 
CQBQLTST 
COBULTST 
CG-BilLT-SX 
COBULTST 
CCBOLTST 
CG-BiLL-IS-I ... 
CQBQLTST 
COBOLTST 

CQii.GL.TST- 

CQBQLTST 
CUBOLTST 
COBOL TST 
COBOLTST 
COBOLTST 
CQHOLTSX 
CQBQLTST 
COBULTST 
G-aaOLTST 
COBOLTST 
COBOLTST 
CQBGL-XST 
COBULTST 
COBOLTST 

COBOLTST 

COBOLTST 
COBOLTST 

COBOLTST. 

05-31-66 
CQBQLTST 

C-Ga-Q-L-T-ST 

05-31-66 
05-31-66 

caaoLTS-T 

CQBQLTST 
05-31-66 

.05-11-66 

05-31-66 
COBOLTST 

. COBOL xsx 
COBULTST 
COBuLTST 

CO BOLT §J _.. 

COBOLTST 
CQBQLTST 

..COBOLTST 

CQBQLTST 

COBULTST 

C.Qfl.U.L.lS.L._ 

COBOLTST 

COBOLTST 

CX3MO.L.L5-T _ 

COBOLTST 
CQBQLTST 

C-Q.&GLX-SX- 

COBOLTST 
COBOLTST 

-COBOLTST! 



• t 









'-« 
51 

S2 

v4 



004730 02 C6, COBULTST 

004740 04 CC5. CQBOLTST 

004750 ... 07..CCCI PC 5.999V999. COBOLX-ST 

004760 07 CCC2 PC S999V999. CQBOLTST 

004770 04 CC6, COBOLTST 

004780 09 CCC3 PC S999V9gy. CGBULTSX 

004790 OS CCC4 PC S999V999. COBOLTST 

004800 01 CRP-CyP-DS, COBOLTST 

004610 02 CI PC 999. COBULTST 

004820 02 CC2 PC 999. CQBOLTST 

004830 02 C4 PC 99, COBULTST 

004840 02 C6. COBULTST 

004850 04 CCS. COBULTST 

004860 07 CC?2 PC 3V(3JV99. \2"22"tf 

004870 04 CL6. COBULTST 

0046RO 09 CCC4 PC S9C3H99. COBULTST 

004890 04 CCC3 PC S9(3)v99. CUBULTST 

004900 02 C5. COBULTST 

0G4910 05 CC4 PC o9(3)v99. COBULTST 

004920 01 CRP-SC CUOOLTST 

.004930 02 Gil PC X(a). COBULTST 

004940 02 G21, COBULTST 

004950 03 G2S1 PC X(4). COBULTST 

004960 03 G2S2 PC X(4). COBJJLT.SJ 

004970 02 G31. COBULTST 

004980 03 G3S1. CObOLTST 

004990 Oa (jA PC aU). CQBOLTST 

005000 04 GB PC Xf2i. CCBULTST 

00^010 03 G3S2 PC X(4). COBOLTST 

005020 02 G41 PC 999999V99. ..COBOLTST 

0Cb03O 02 G12 PC Xt8). COBOLTST 

005040 02 G22. COBULTST 

QC5Q50 03 G2Tl PC X(4). COBOLTST 

005060 03 G2T2 PC X(4), COBOLTST 

005070 02 G32, COBOLTST 

0050.80 03 G3T1. COdOLTST 

005090 04 GC PC XX. COBOLTST 

005100 04 GU PC XX. COBOLTST 

.OQbllO 04 GE PC XX. COBOLTST 

005120 04 GF PC XX. COBOLTST 

005130 02 G42 PC 999999V99. COBOLTST 

005140 02 G13 .BC.XC.8). CflB.O.LTS.1. 

005150 02 G33 PC X(8). COBOLTST 

005160 02 G43 PC 999999V99, COBOLTST 

005170 02 G14 PC X(»J. C.Q.BUL...T3 I .. 

005180 02 G34, COBOLTST 

005190 03 G3U1 PC XC4). CQBOLTST 

005200 03 G3U2 PC X(2). . .. CQ-BQLXSI 

005210 03 G3U3 PC X(2). COBULTST 

005220 02 G44 PC 999999V9V. CQBQLTST 

0.05230 02 .445- PC XXa>. caBOLXSX 

005240 02 G35 PC XC8). CQBOLTST 

005250 02 G45 PC 999999V99. COBOLTST 

003260 Ql CR.P-DS1 .* _.... - _ . _ _.... ..^ CQHDLXSX. 

005270 02 Gil PC XCd). COBOLTST 

005280 02 G12 PC X(6). CQBOLTST 

00.5^90 02 Gl-3. PC XX-84 , _ - CQ-BQLX-ST 

005300 01 CRP*DS2, COBOLTST 

005310 02 G15 PC X(8), CQBOLTST 

. Q.Q..53.2Q a2 G4 4...B-C xtflJ- -.._ _ _ _ CJUBI1LXSX 



1< 



2d 

3', 



-11/ 

l. 
■I'll 
4(1 ' 

4fi 



■Hi 

I 62 " 
B , 

64 

: 



005330 

005340 

005350 
005360 
005370 
005380 
005390 
005400 
.005 4*0 
005420 
005430 
.005440 
005450 
005460 
Q.Q5470 
005480 
00^490 
Q 0.5.500 
005510 
005520 
005530 
005540 
005550 
005560 
005570 
005560 
0G5590 
005600 
005610 

.005620 
005630 
005640 
0Qi>650 
005660 
005670 
00 568.0 
00S690 
005700 
0.0 57.0.3 
00 5 70 6 
005710 
.0.05.720 
005730 
00^740 
005750 
005760 
005770 
005780 
005790 
005800 
00-5810. 
005820 
005830 
0-05^840 
005850 
005860 

-005.870 
005880 
005890 

-.0X13-904). 



01 



01 



01 



01 



01 



01 



01 



0-1 



CHP 
02 

02 



02 
CRP' 
02 
02 
02 
02 
02 
CRP' 
02 



02 



•DS3 
G15 

621 



03 

G45 

•DS4 
G41 

G42 
G43 
64 4 

■DS5 

G31 
03 



03 

G32 
03 



PC X(8). 



3 G2S1 
G3S? 



PC 
PC 



XC4), 
X ( 4 ) . 



PC ****9,99. 



PC 
PC 
PC 
PC 
PC 



****9.99, 
.iSS.99.-99.... 
SZ2Z9.99, 
+++++.99, 
&B B 89 .9.9^ 



63 Si. 

04 GA PC XX, 

04 GX PC XX. 

62 T 2 PC XXXX 



G3T1. 
04 GC 
04 GO 
04 GE 
4 GF 



PC 
PC 
PC 
PC 



02 



02 
GOAN 

02 
GGN. 

02 
ANRA 

02 

02 

02 

02 

02 

02 
02 
02 

02 

HD2 

02 

02 

02 

02 

02 

02 
MI.SC 

02 



G34 



. 03 

G33 



3 G3U1 PC 
G^Tl PC 
P C X I 6 ) , 



XX. 
XX, 
XX. 
XX. 

XU) 

XXaX. 



QUA PC XllQ) QC. 3, Tl.Wts, 



PC 9(b)V9<y OC 5 UMES. 



CMP, 
CMP, 
S9C 7? VVC JO . 

X(15) UC 50 



GN 

V.S« 

CVN SI 2 
CVA SZ 2 
ANSN PC 
ANSA FC 
ZZ SZ 500. 
..Q3.R3T.N 

RSTna redefines 

RSTa PC XC15) 

BN... PC X QC 50 

BA PC X OC 50 

SZ 120 AN, 

FILLER -SZ 10 VA SPACES. 

NO-ID SZ 11 VA "SECTION 

FILLER SZ 1 VA SPACES. 

SECT-NO SZ 4 AN., 

FILLER SZ 4 VA SP/\C£S. 
SECT-TITLE (ST) SZ 90 AN, 



zz 

uc 



Pv. 
PC 

50 



UC 50 TIMES. 

T I N't S. 

.5.9 C 7 IV tf C 3 3 . 

XC10) 



DC ...50. 
OC 50. 



TIMES 



TIMES i 
TIMEcj. 



NO 



RFt 
13 
13. 



13 



SIZE 
RSU 
H-S4-2 

32 
32 



RS2i 
44 



AN CHARACTERS, 
10 AN. 

i-5„ : -. 

XC5). 



PC 



oo 

SZ 
-S-2 

RSS1 
RSS2, 

46 HX1- RC- 

46 RX2 PC 
SZ 15 AN, 
RST-t 52 l-0~ 



XXAXX* 

xxxxx. 

-ktu — 



COBuLTSl 

COBQLTST 

.CWQL-TS4- 

C080LTST 

CQBULTS1 

COfi-OLTST 

COBQLTST 

COBQLTST 

XO-BULJ-SJ 
COBQLTST 
COBQLTST 

...C-OaoVT-S-I .... 
COBQLTST 
COBULTST 

.CO-B-UL-T-ST 
COBULTST 
COBULTST 
CO-BO.LT.ST 
COBULTST 
COBULTST 
COBULTST 
COBULTST 
COBULTST 
COBULTST 

cubults r 

COBuLTSl 

CUQ.ulT.ST 

CGUuLTSr 
COBQLTST 
CU.diiLT.ST 
CUBULTST 
COBULTST 
CUaaLTST. 
COBQLTST 
COBQLTST 
COBULTST 
COBULTST 
05*31-66 
.05*3-1-66 
05-31-66 
COBOLTST 
COBULTST. 
CGdOLTST 
COBULTST 
COBULTST ... 
COBOLTST 
COBULTST 

COBOLTST 

COBULTST 

COBQLTST 

..C-O-BU-LT-ST 

COBULTST 
COBOLTST 

CG-BXL-T-ST- 

COBULTST 
COBULTST 

-.-CO&ULT-ST- 
COBULTST 

COBQLTST 

..C-OaUL-T-ST - 



• • 



1 ', 
III 

19, 



2 J 

id, 

( 

--"•)_ 

'iti 

III 

:■'; 
an' 

2S| 
3.':, 



h,r 



13 
44 

4,' 
« 
49 
5fi 
51 
52 
53 
54 
>5 
)6 



00^910 
005920 

.oo_-9 30 

005940 
005950 
005.960 
005970 
005980 
Q..Q.5.9..9Q 
006000 
006010 
006020 
006030 
006040 
0D6Q.5Q 
006060 
006070 
00.6080 
006090 
.006100 
0.Q6110 

00&120 
006130 
006140 
006150 
006160 

-006170 
006180 
006185 
006190 
006200 
006210 
006220 
006230 
006240 
006250 
006260 
006270 
006280 
006290 
006300 
006.310 
006320 
006330 
006 340 
006350 
006360 
006370 
006380 
006390 

._QOMO0 
006410 
006420 

-QjQj6jL3fl. 
006440 
006450 

._£0_6_4,6J3- 
006470 
006480 

___<L_ilftO_ 



01 



01 



01 



01 



01 



01 



02 



13 

RF2 

15 

15 



4 7 R 

47 R 

41 R-T2 

FILLER $1 

REDEFINES 

RTll PC ... X 



RT12 SZ 3 
39 RFxl 
.... 45 
45 
39 RFX2 
39 BF.X3 
47 
47 

39.WFXA 

15 FILLER SZ 
MISN REDEFINES MI 

62 ROl PC XCiO). 
02 R02 SZ 15. 

27 RDC1 PC X 

27 ROD 2 SZ 

33 RX1 

33 RX2 

02 RD3 fiC XCIO) 

02 RD4 SZ lb. 

35 RUC1 PC X 

35. RU.C2 PC X 

35 RDD3 PC X 

02 FILLER SZ 30. 

66 RND RENAMES B 

66 RnDI RENAMES 

66 RND2 RENAMES 

MISO REOEFUvES MI 



ri PC X(5). 
Y 2 PC A C 5 ) . 

PC XC5K 

40. 

RF1 SZ 80, 
UQJ. 
AN. 

RF.tX .. PCXX.51. 
RFY2 PC XC5). 
PC XCIO). 

RFZ1 PC XC3). 
RFZ2 PC XC 3), 

pc xuj.. 

40. 

sc. 



C 10 J • 

5. 

PC 999. 

PC 99, 



(5). 

(5). 
C5). 



02 ROF 
MlSp, 
04 CP1 COPY RFi 
04 CP2 COPY RD2 
66 CPN1 RENAMES 
66 CPN2 RENAMES 
GINT. 
02 GI PC 99999 
GF2 PC 9999 

SZ 12C AN. 
FILLER SZ 25 
PARTI SZ 3 
FNI PC X# 
PART2 SZ 1 VA 

ENQ.1 PC 9.9* 

PART3 SZ 7 
FN2 PC X, 

EjiHX4-_ SZ 1 

EN02 PC 99. 
PART5 SZ 1 
F ILULB _U_Z6 



01, 

RDD2 OF KD2. 

R0D1 IN R04 IHRU RD03. 

SN, 

SZ 10 OCCURS 8 TIMES. 



02 

H08 

02 

02 

02 

02 
...Q2. 

02 

02 

02 

02 

02 

02 

H09, 

02 FILLER 
..-..". ****. 

02 N-A PC 

02 FILLER 
JL2...lKXNflL_ 



QF MISC. 

IN MISN, 

RD02 OF CP2. 

8X1 OF .CP2 THRU RX2 ..v»F. CP2, 

OC 5 TIMES. 
V99 OC b TIKES. 

VA SPACEb. 

VA "ANS". 

VA ") = RST M . 

VA.. H ..C-% _ - 

VA "V\ 

_Ji.SEli.Li, 



CUBULTST 
COBULTST 
GOBO-LTST 
COBOLTST 
COBULTST 

CQ.B.OLTST 
COBOLTST 
COBOLTST 
COBjJLTST. 
COBOLTST 
COBOLTST 
COBOLTST 
COBULTST 
COBOLTST 
. CUEQLXST. 
COBOLTST 
COBOLTST 
COBOL IS I 
CUBULTST 
COBOLTST 
COB-ULTS-T 
COBOLTST 
COBULTST 
COBOL T ST 
COBOLTST 
COBULTST 
CQBOLT-T 
COBOLTST 
COBULTST 
CO-BULT-T 
COBOLTST 
COBOLTST 
CQ BOLT ST 
COBULTST 
COBOLTST 

coaxiLiaT. 

COBOLTST 
COBOLTST 

.COB.Ui-J-S.1 
COBOLTST 
COBULTST 

.-COB-ULT.S-T-.. 
COBULTST 
COBULTST 

...Cfl-ilJL.T-S.T 
COBOLTST 
COBOLTST 
OOfiOLIST 
COBOLTST 
CUBULTST 

XQbtJLIST 
COBULTST 
COBOLTST 

.COBULTST 



SZ 63 VA " 



_AJ_SJ 



X. 
SZ 



1 VA w <". 

A9_i _.__. 



COBULTST 
**************** COBOLTST 

_. COBU LTST . 

COBOLTST 
COBOLTST 

C__£___T5T 



• • 



H— . 



IK I 
Xi 



2&I 
_»| 
_0 
.11 
3 J 



A i 

4'3[ 
,44' 

p.) 



006500 
006510 
Q.Q652Q 
006530 
006540 
Q.0655Q 
006560 
006570 
np6S7i 
006572 
006573 

..OjQ.657-4.. 
006575 
006580 

Q.Q6.59Q. 

006600 
006610 
Q 06620 
006630 
006640 
006650 
006660 
006670 

.006680 
006690 
006700 
006 710 
006720 
006730 
00 67 40 
006750 
006760 
006770 
006780 
006790 
Q0.6fl.00 
006810 
006820 
006 830 
006840 
006850 
006860 
006870 
006880 
006890 
006900 
006910 
Q.Q6920 
006930 
006940 

JXQA&ML 
006960 
006970 

_M6.9,a.Q„ 
006990 
007000 

.joaiota. 

00/020 
007030 
070 40- 



Ql 



01 
01 
01 
01 

01 
01 
01 
01 



01 



01 



02 FILLER SZ 4 VA 

02 ANW SZ 15 AN. 

02 Fli-L£R-..SZ fl -VA 

02 A-N PC X. 

02 FILLER SZ 1 VA 

0.2 1N.XN- PC 99. 

02 FILLER SZ 4 

02 RESUT SZ 18 

UtBtU— - - 

02 NLRC1 S2 80, 

04 NLFA SI 8 

02 ULRCZ S-Z-4IL, 

04 NLFB Si 5 



..Jtfil'V 



"< 



VA 
AN, 



OC 10 



DC d 

TFil. 
-JF.-12-. 

TF21. 

TF22. 
...TFJt. 

TF33, 



WSTF11 COPY 

WSiFi.2 C.JQJP. X . 

WSTF21 COPY 
WSTF22 COPY 

WSTFll COPY 

WSTF33 COPY 
WSTF13 COPY TF13# 

WCIN» 

02 WCN1 PC 9, 

02 WCN2 PC 99, 

02 .WC-N3 PC 999, 

02 WCN4 PC 99V9. 
02 WCN5 PC S99V99. 
02 WC^6 PC 99V999. 
02 WCN7 PC 999V999, 
02 WCN8 PC S9999V999, 

02 WCN9 PC S99«9y.99 9_9.» 

02 WcNlO PC S99999V999V, 
02 WCN11 PC S99999V9999*. 
Q2 JJC.N12- PC 9.99999V 9.999 9,. 
02 WCN13 PC 99999V999999, 



WCIA. 
02 WCAl 
02 WCA2 
02 WCA3 
02 WCA4 
02 WCA5 
02 WCA6 
02 WCA7 
02 WCA8 
02 WCA9 
02 WCA10. 
02 WCA11 
02 WCA14 

WC.IAN, 

02 WCAN1 
02 WCAN2 

. Q2..W€AK-i„- 
02 WCAN4 
02 WCAN5 

_.Q2_.M£AiiA. . 
02 WCAN7 
02 WCAN8 

-0-2..-HLCAN.9.. 

02 WCAN10 

02 WCAN11 

-02 W CAN 1 4 



S.Z 1. 
SZ 2. 
SZ 3, 

SZ 4 # 

SZ 5. 
SZ 6, 
SZ 7. 
SZ 8. 
SZ 9. 
SZ 10, 

SZ u. 

SZ 14, 



PC 

PC 

P-CL- 

PC 

PC 
-P£ _ 

PC 

PC 

-B£ 

PC 
PC 



X. 

XX. 

XXJU 

xxxx, 
xxxxx, 
x£j6.:u ; 

X(7). 
X(8). 

XtV-U- 

X(10), 
X(U>. 
__XXli--U 



COBULTST 

CQBOLTST 

CXUi.liL-I-3..I- 

COBOLTST 

COBQLTST 

CQBQL.ISI. 

CLBOLTST 

COBULTST 

«=*=«- 

10-5-70 

10-5-70 

4-0-*^-?-a- 

10-5-70 
COBULTST 

-XLQBJjLZSX 

COBQLTST 

COBULTST 

C-&B4JtT-S-T 

COBQLTST 

COBQLTST 

G0S4LT&T 

COBQLTST 

COBOLTST 

COaOLTST 

COBQLTST 

COBOLTST 

eOS-OLTST- 

COBQLTST 

COBOLTST 

C0B-QL4-S-T 

COBOLTST 

COBOLTST 

CaBiiLT.ST. 

COBQLTST 

COBOLTST 

COBALTS! 

COBQLTST 

COBOLTST 

CaBQ-LT^.T 

COBOLTST 

COBQLTST 

CaB-0-L.T-ST 

COBQLTST 

COBQLTST 

COBOt-T-S-T 

COBOLTST 

COBOLTST 

CHBQL.T-SJ. 

COBOLTST 

COBOLTST 

CGBX1UJ-S.X- 

COBOLTST 

COBOLTST 

COBOLT ST 



COBOLTST 

COBOLTST 

C-OaOtT-S-l- 

COBOLTST 

COBQLTST 

COBOLTSI- 



• t 



1KI 
17 
11.1 
111 

la> 
?1 

21 

it 

') 
id 

ri\ 

'tub 

W| 
M 

|31 



Hi 
,1 

4,'j 
u 

IS 
46 
47 
48 
49 
50 
51 
5? 
i3 
S4 
iE 

>6 



0C7050 

007060 

.DO I Si TO 

oo7oso 

007090 
00 1 100 
007110 
007120 

013-713.0 

007140 
007150 
007160 
007170 
007180 
007190 
007200 
007210 
00?220 
007230 
007240 

00 7 250 

007260 

007270- 

007280 

007290 

007300 

0X3/3 1 

007320 

007330 

007340 

007350 

007360 

007370 

007380 

007390 

QQ740Q 

007410 

007420 

00.74.30 

0074/»0 

007450 

007460 

007470 

007480 

007490 

007500 

007510 

007520 

007 530 

007540 

00755-0 

00 '7 5 60 

007570 

..Q-£Z.5fl_0_ 

007590 

007600 

00 7610 

007620 

007630 

007640 



01 



01 



RWHD1. 

02 FILLER 

02 D.15RL,* 
04 STA 
04 PHA 
04 PHJS 
04 WRE 

02 FILLER 

Q2 RE.C.Nfl.._. 

02 DI5CPT 

WSVA1. 

02 -VSN 



02 

02 

02 
02 
02 



PC 
FILLER 
VBA, 

03...VCC 
FILLER 
VBC 
FILLER 



CONSTANT SECTI 

01 HD1 SZ 120 
02 FILLER 
02 MHO SZ 
"STER TEST 
02 FILLER 

01 HD3 SZ 120 
02 FILLER 

02... MS 6 
02 FILLER 

01 HD4 SZ 120 
02 FILLER 
02 MSG2 SZ 
02 FILLER 

01 HD6 SZ 120 
02 FILLER 
02 MSG3 SZ 
02 FILLER. 

01 H07 SZ 120 
02 FILLER 
02 MS.G4 S 
02 FILLER 

PROCEDURE DIVI 

START SECTIQ-N, 

LLLLL. 

OPEN OUTPU 
MOVE 50 

MOVE 3 
PERFORM C 
WRITE A-R 
TEST SECTION. 
LABLL, 

.... fEHFj_RM_P_0 

PERFORM PC 

PERFORM PO 

._ PERFORM PO 



SZ 10 VA SPACES, 

RS SZ 7.VA " ***** " t 

SE SZ 19 VA "HEAD WRITE PHASE % 

NO... PC 9 (3). .. .. 

SULT SZ VA " OK ". 
S_ 5 VA SPACES. 

SZ-.5 .NUMERIC 

SZ 55 AN, 

..0X5.).-. 

PC XC3) VA ZEROES. 

PC XC5) OC.CU.Hi -9-TlMtS. 

PC XC3) VA ZEROES. 

PC XC8). 

_Z l6 -V A SPACES* 

ON. 
AN. 
SZ 30 V A SPACES* 

6i va "System Improvement section extended cobol 

PROGRAM". 

SZ 29 VA M XV-.G-rO-O*. — - - 

AN. 

SZ 15 VA SPACES. 

1 *>Z 15 VA "TEiT RESULT OK.". 

SZ 90 VA SPACES, 
AN. 
SZ 15 VA SPACES. 

22 VA "TEST RESULT INCORRECT.". 
SZ 83 VA SPACEo. 

.AN... _ 

SZ 15 VA SPACES. 

17 VA "ILLEGAL AUN VALUE". 
SZ 88 VA SPACES t 

AN. 
SZ 25 VA SPACES. 

Z. JO ..VA. "TEST Up ALL SECT lO.NS ..C.aM.P.kE.I.E.D". 

SZ 65 VA SPACES. 
SIGN. 



T PRQUT, 

TO.CVA/ CVN. 
TO AUN. 
LAKY. 
FROM HDl BEFORE ADVANCING 3 LINES. 



PERFORM PO 
PERFORM PO 
PERFORM PO 



02. 

03. 

Ml 
05. 
06. 
07. 



PERFORM PO 
PERFORM PO 
PERFORM PO 



08. 
09* 
lP_j_ 



COBGLTST 
COBULTST 

. .-.CU.B.ULTS.T- 
COBULTST 
COBOLTST 

COBOL T-S-T 

COBOLTST 
COBULTST 

CQB.QUS.T 
COBULTST 

COBOLTST 
CUBOLTST 
COBOLTST 
COBOLTST 
COBOL T-ST 
COBOLTST 
COBULTST 
COBULTST 
COBOLTST 
COBOLTST 
GOSOLTST 
MACOBOLTST 

COBOLTST 

CUBULTST 
COBOLTST 
CU-BULTST 

COBOLTST 

COBULTST 

COBOLTST 
COBOLTST 

COBULTST 

CUBULTST 

COBOLTST 
COBOLTST 
CUBULTST 
COBULTST 
COBULTST 

. C.QBGLI.S.I... 
COBOLTST 
COBULTST 

.C.O-flL!._I... 

COBULTST 
COBULTST 
COBOLTST 
COBOLTST 
COBOLTST 

COBOLJST 

COBOLTST 
COBULTST 

,._£jQlfiLISl. 
COBOLTST 
COBOLTST 

_-.CnMLJSJ._ 
COBOLTST 
COBULTST 
CSBOLLST 
COBOLTST 
COBOLTST 
COBULTST 



45 

46 

47 I 

48 

49 

50 I 

51 

52 

53 i 

54 

55 

56 4 

57 



"XI 
M 
2ii 
.Hi 
3 1 
32 






42 



4tr 
47 

r 

BO 

u 

b 

53 

1 54 
BS 
fih 






00/650 
00^660 
00/670 
007680 
007690 
00/700 
00/710 
00/720 
007.730 
007740 
00/750 
Q07760 
00/770 
00/780 
00/790 
007800 
00/810 
00/820 
007830 
00/840 
007850 
007860 
00/870 
007880 
00/890 
00/900 
00/910 
00/920 
00/930 
QQ/94Q 
007950 
00/960 
00/970 
00/980 
00/990 
008000 
008010 
008020 
008030 
008040 
008050 
008060 
008070 
008080 
0.0 80 90 
008100 
006110 
001120. 
008U0 
008140 
.008150. 

008160 
008170 
0.0.8180 
008190 
008200 

JW-82-1-0 
008220 
008230 



PERFORM 
PERFORM 

PERFORM 

PERFORM 

PERFORM 

PERFORM 

PERFORM 

PERFORM 

PERFORM 

PERFORM 

PERFORM 

PERFORM 

PERFORM 

PERFORM 

PERFORM 

PERFORM 

PERFORM 

PERFBRM 

PERFORM 

PERFORM 

PERFORM 

PERFORM 

WRITE A-R 

STOP -RUN . 



P011. 
P0i2 THRU 

P014, 

P015. 

P016. 

PCI 8 THRU 

P021. 

P023 THRU 

P 058 « 

P029. 

P030. 

P031. 

P032. 

P033. 

PC 34. 

P035 THRU 



012PERK 



018VE. 
2iEX, 



PC36 
P037 
P038 
P039. 
PC 40, 
P041. 
FROM 



THRU 
THRU 
THRU 



3bEXT. 
36EKT. 
3/EXT. 

38EXT. 



HU7 BEFORE AOVANClNG TOP. 



pooi section, 

13, ..MOVE "P.00.1." TO SEC.T-NQ, 

MOVE "PARAGRAPH" TO SECT-TjTLE, 

MOVE "A" TU ANSA ( 1 ) » r< b T A CD, 

.M.Q.VE.9....T.G....C1&* - 

MOVE 1 T0 ANSN (1), RSTN (1), 

PERFORM Til THRU TIE. 

3. NOTE COBOL A THRU 7- I TO 9 J . '. < > RESERVED WORDS. t OR. 

VARIABLES. 
GO TO 11, 



19, 

m 



TIE, 
11. 

T12. 



> ....IP PERFiLRM ..111.,,. 

TO ANSN (2)* RSTN 
< 10 GO TO TIE. 
TO RSTN C3J, 



(2) 



-IE. 



IF CIO 

MOVE 2 

IF CIO 

MOVE. 4 

EXIT, 
MOVE 3 TC RSTN (3)p AnSN (i) 
GO. TO. .4 _.__ 

MOVE 5 TC RSTN C3K 
MOVE 3 TO CVN. 

MQVELJL IH_ LVA* _ _. _ 

MOVE 3 TO AUN. 
PERFORM VERIFY. 
-EXU* 



COBULTST 
COBULTST 
C^B-UL-T-ST 
COBULTST 
COBULTST 
COaULTST 
COBULTST 
COBuLTST 
-CO&U-LT-ST- 
COBOLTST 
C080LTST 
-C-Q-BCLT-SI-. 
COBULTST 
COBULTST 
CU^LT-SI- 
CQBOLTST 
COBOLTST 

coauLTST 

COBULTST 
COBULTST 
GOBOLTST 
COBOLTST 
COBGLTST 
COBOLTST 
COBULTST 
COBULTST 
COBULTST 

COBULTST 
COBOLTST 
..CaUULTST 
COBULTST 
COBOLTST 
COBOLTST 
COBOLTST 
COBULTST 
CQIULTST 
COBULTST 
COBOLTST 
C.aBLlL.IS.T. 
COBOLTST 
COBULTST 
CDfiULlST 
COBULTST 
COBULTST 

...CI1B.QL.T.S1 
COBULTST 
COBOLTST 

...COJULTS.T 
COBULTST 
COBULTST 

..C.aB.tlL.Tl.1 . 
COBOLTST 
COBOLTST 
CJlBJiLXS_I. 



COBOLTST 
COBOLTST 

-CflBULW 
COBULTST 
COBULTST 

-C0RULI.S4L-. 



• t 



i 

-I 



16 

in 
')& 
■jl 



006250 COBuLTST 

006260 COBULTST 

006270 P002 section, cobultsi - - 

008280 21, MOVE M P0C2" TO SECl-NO. COBULTST 

006290 MOVE "LABEL" TQ SECT-TlTLt. COBULTST 

008300 PERFORM 1, COBOLTST - 

008310 PERFORM AAl, COBOLTST 

006320 PERFORM 1A. COBULTST 

008330 PERFORM AA. CUBuLTST 

006340 PERFORM A-t, COBOLTST 

006350 PERFORM A-A. COBULTST 

008360 PERFORM 1"A, COBOLTST - — - 

006370 PERFORM A— A. COBOLTST 

006380 PERFORM 1234b67890-ABCDEFtiHUKLMiMQp_R& , COBuLTST 

006390 GO 10 1234567890, COBOLTST 

006400 1, MOVE 1 TO RSTN Cl)# ANSN Ci). COBOLTST 

008410 AAl, MOVE 2 TO RSTN (2)* ANSN (2), COBOLTST 

008420 1A, MOVE 3 TO RSTN C3)» ANSN (3). COBOLTST __ 

008430 AA, MOVE « TQ RST\ (4), ANSN (4), COBOLTST 

008440 A-t, MOVE 5 TO RSTN (5)» ANiN (5), COBULTST 

00845.0 A-A, MOVE 6 To RSTN (6)# AN»N (6), COBOLTST 

006460 1-A, MOVE 7 TO RSTN (7)# ANSN (7), COBOLTST 

008470 A--A, MOVE 8 TO RSTN C8)» AN5N (8), COBOLTST 

006480 123.4567890-ABCDEf GHIJKLMNOPQRS, MOVE 9 TO RSTN C9)j ANSN C9W COBOLTST _. | 21 

008490 1234567890, MOVE 9 TO CVN. COBOLTST 

008500 MOVE 1 TO AUN. COBULTST 

006510 PERFORM VERIFY, COoLLTST 

008520 2E, EXIT. COBOLTST 

008530 COBULTST 

008540 COBOLTST - - - 

008550 COBULTST 

008560 COBOLTST 

006570 P003 SECTION, COBULTST _ _. _. 

008580 031. MOVE "P003" TO SECT-NO. COBOLTST 

008590 MOVE "SENTENCE AND STATEMENT 7.3.8' 7. 3. 9" TO SECT-TlTLE. COBOLTST 

008600 MOVE SPACE TO Al. COBOLTST _ 

008610 MOVE 1 TC RSTN C1J, COBULTST 

008620 AOD 1* RSTN (1) TO RSTfv (2)} COBULTST 

0.06630 MOVE 3 TC RSTN C 3 1 j CQB.OLTST 

008640 ADD 1 TO ANSN Cl). COBOLTST 

006650 NOTE COBOL SENTENCE A!\U STATEMENT STRUCTURE* NOTE IS COBOLTST 

008660 BEFINED TO BE FOLLOWED BY ANY BASIC SYMaflLS SUCH .aO.fl.QW I ST __ I 39 

008670 AS 1 - 9; A THRU D +*/Xs>< ETC TERMINATED BY A , COBOLTST 

008680 MOVE 2 TC ANSN (2); CQBOLTSr 

008690 MOVE 3 TC ANSN..C3); ... COBOLTST _ 

008700 MOVE 1 TO C 10> COBOLTST 

008710 MOVE 4 TO C30, COBOLTST 

008720 032. J.F .. ClO ... ■. 1 THEN NEXT SENTENCE ELSE IF Al ■ "A" NEXT COBOLTST _ _ _ J 46 

008730 SENTENCE ELSE MOVE C30 TO RSTN tC30>; COBULTST 

008740 ADD C30 TO ANSN (C30) COBOLTST 

0.08750 ... P£JiFQRM 0.3V GO TO 0.3.5, „ _ CflBOLTST . 

008760 GO TO 033 O34 DEPENDING ON CIO. COBOLTST 

008770 033, MOVE C30 TO RSTN (C30). COBOLTST 

008780 ADD C3Q TQ- ANSN CC30)# _ .__ CflflflLXSJ _.. 

008790 AOD 1 TC C10J COBOLTST 

008800 ADD 1 TO C30i COBOLTST 

008*40 GO- 10 0-32^ _.. _ CHB0-LX5T - 

008820 035, MOVE 6 TQ RSTN C6H CO-BOLTS f 

008830 MOVE 6 TO ANSN (6); COBOLTST 

008.840. J4CWX...!LA-"-~tU_JLU-: -. ._ - CQ£ HH,T*T , 



i 

2( 

3 

4 

M 

6 

u 

.i 9 

10 

u{ 

12 
Il3 



22 

23 { 

24 

25 

26 I 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 < 

36 

37 

38 4 



40 
41 < 
42 
43 
44 i 



46 

47 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

56 ( 



• • 



>ft 



1J 






008850 
00«860 
008870 
008880 
008890 
008900 
008910 
008920 
00893Q 
008940 
008950 
008960 
008970 
008980 
008990 
009000 
009010 
009Q20 
009030 
009040 
009050 
009060 
009070 
009080 
009090 
009100 
00911.0 
009120 
009130 
009U0 
009150 
009160 
009170 
009180 
009190 

009200 
009210 

009220 
009230 
009240 
009250 
009260 
009270 
00*280 
009290 
009300 
009310 
009320 
009330 
009340 
QQ9350 
009360 
009370 
9.0.?. 3.80 
009390 
009400 
0,09.410 
009420 
009430 
00-9JUO 



034 



039. 



036 



3E, 



GO TO 032. 
MOVE 7 TC HSTN 
ADD 1. TC ClQj 
IF CIO s 3 THEN 
GO TO 036. 
MOVE 9 TC HSTN 
ADD RSTN (9) 
MOVE 1 TC AUN. 
MOVE 9 TC LVN. 
PERFORM VERIFY 
EXIT, 



(7); ANti.M in 



MOVE 8 T[i RSTN (8) AlsSiM (8) 



(9)j 

TO AMbN 



( c >) 



P004 
41. 



42. 
43, 



44. 
45. 
4E. 



SECTION. 

MOVE "PQ04." TO SECT 
MOVE "CONDITIONAL ST 
MOVE 1 TO CIO. 
IF CIO > MOVE 1 TO 
IF CIO < MOVE 1 TO 
IF CIO > N£XT SE 
MOVE 3 TO RSTN (3). 
IF CIO < C MOVE 3 
TQ PSTN CO. 
>. IF CIO = 



-NO. 

atement" tq sect-title. 



asTh en. 

RSTN (2) 

ntence els 



ELSE MOVE 2 TO HSTN C2) f 
E MOVE 4 TO RSTN (3). 



rO RSTN (4) ELSE NEXT SENTENCE. 



(5) 
< 
(6) 
> C 
(7) 
( 70 



OTHERWISE 

MOVE 5 TQ 
ELSE MOVt 
IF CIO = 
FLSE IF C 
OTHER HI. Ji 



RSTN (7). 
> IF clO > 
RSTN 19) ELSE 
C9) ELSE IF C 



MOVE 4 
IF ClO 

RSTN 
IF" ClO 

R.STN 
IF ClO 

RSTN 
RSTN. 

3 TO 
IF CIO 

9 TQ 
RSTN 

OTHERWISE MOVE 8 T 

IF ClO > C IF ...ClO < 
RSTN (10). 

IF ClO > C IF CIO > 
IF ClO > IF CIO 
RSTN (U). 
IF ClO > ADD 1 T 
CIO IF ClO > MOV 
ELSE MOVE 10 TO RS 

IF ClO < MOVE 1 TO 
1 FROM ClO IF C1Q 
ELSE MOVE 14 To RS 

MOVE 10 TC RSTN (15) 

MOVE 15 JO RSTN CIS) 

MOVE 1 TO AUN. 

MOVE 15 TO CVN, 
PERFORM 44 VARYING. .. 

GO TO 45, 

MOVE C20 TC ANSN CC2 

PERFORM VERlt Y, 

EXIT, 



U MOVL 6 T 
MOVE 6 TO 
RSTN (6) 
Tu RSTN 

MOVE 1 T 

10 = MQV 

E.MQVt 

IF CIO 

MOVE 4-TU 
10 * IF 
RSTN (9) 
0. MOVE 1 I 

IF ClO < 

< WOVE 1 

Q CIO MULT 

L 12 TO RS 
TN (12), 
RSTN (14) 

< MOVE C 

TN Cl«) GO 
GO TU 4 J, 



KSTN (5) ELSE MOVE 5 TO... 

RST\ (i). 
OTHERWISE IF ClO > MOVE 6 TO 

.(6). 

HSTN (7) ELSE MOVE 7 TO 
E 2 TC 



> MOVE a TO RSTN (8) MOVE 
RSTN (8) OTHEKWISe MOVE 5 TO 

CIO < MOVE TO RSTN (8) 
ELSE MQVE TU RSTN (9) , 

0. HSTN 1 10 J ELSE MCLVE 10. 10- 

MOVE 1 TO RSTN (11) ELSE 
TO RSTN (11) ELSE -MOVE 44 TO 

IPLY 1 BY CIO SUBTRACT 1 FROM 
TN ( 1 2 j MOVE 13 TO RSTN £ 13 J 

else add i to cio subtract 

10 TO H ST N ( 1 4 i ADO.. 1 T 0- C 1 

TO 42, 



C2.Q F.KO.M 1 

0). 



BY 1 J NT I L C2QL > .'.JttLlU. 



COBOLTST 
CCBOLTST 
C.QBOLT.ST 
COBULTST 

COBOLTST 

COBOLTST 

COBULTST 

COBULTST 

COBULTST. 

COBOLTST 

COBOLTST 

COiiOET-S-T 

COBOLTST 
COBULTST 

COHLILT-ST 
COBOLTST 
COBOLTST 
CO-BELT ST 
COBOLTST 
COBULTST 
COBULTST 
COBOLTST 
COBULTST 
COBOLTST 
COBULTST 
COBULTST 
COBULTST 
COBULTST 
COBOLTST 
C-QBULTST 
COBOLTST 
COBULTST 
COBULTST 
COBULTST 
COBULTST 
CO-BOLT ST 
COBULTST 
COBOLTST 
COBOL T ST 
COBULTST 
COBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
CO-BOLT ST 
COBOLTST 
COBOLTST 
COBOLTST 
COBULTST 
COBOLTST 
CQ-BUETai- 
C09ULTST 
COBULTST 
CUttilLlSJ. 
COBOLTST 
COBULTST 
COBOL TST- 
COBULTST 
COBOLTST 
.-COBOLTST- 



J0 



• • 



n\ 
r.v 
,11 



I", 

I'll 

46 

»,' 

w 

»9 

'so 

51 
VI 
>3 
i4 



009450 

009460 
00947 
009480 
009490 
009500 
009510 
009520 
0.09530 
009540 
009550 
0Q956Q 
009570 
009580 

009590 
009600 
009610 
009620 
009630 
009640 
009650 
009660 
009670 
Q09680 
009690 
009700 
00V710 
009720 
009730 
009740 
009750 
009760 

009770 
009780 
009790 
009800 
009810 
009820 

009 a ao 

009840 
009850 
009860 
009870 

009880 
00989.0 
009900 
009910 
00.V92O 
009930 
009940 

..M3S5JQ. 
009960 
009970 
009980 
009990 
010000 
QI001.0.„ 
010020 
010030 
.0_lOQ.HO. 



POOS SECTION, 
51. MOVE "POO 
MOVE "BOO 
MOVE 10 
MOVE "99" 
MOVE "PQB 
MOVE 20 
IF KT MOV 



KQNS > 
AN2 IS 
IS 

TU 



IF 
IF 

IF 020 

MOVE. 3 
IF D20 
IF D20 

MOVE 5 

IF D20 = 
IF (020 s 
IF 030 s 
MOVE 8 
IF AN2 
MOVE 9 
IF D20 
IF AN2 
MOVE 11 



TO 
IS 
TO 
lb 
IS 
T 

IF AN3 IS 
IF NOT 02 
IF D20 
IF D20 * 
IF NOT (0 

IF D20 
IF ((NOT 
IF (D20 * 
MOVE 18 
IF 020 = 

RSTN (l 
IF 0.2.0 a 
20 OR 
RSTN (2 
MOVE 20 T 
PERFORM P 
MOVE 1 TO 
GO TO 52, 
P-51, MOVE C 
E51. EXIT, 
52. PERFORM V 
5E. EXIT. 



5" TO SECT 

LEAN CONDI 

TC U20. 
TO AN2. 

" T.Q AN3. 

TO D30, 

E 2 TO RST 
9. AND. < .2. 
NUMERIC 
POSITIVE 
R.3.IN. (J). 

1C OR AN2 

10 OR AN3 
RSTN (S), 

10 MOVE 6 
10) MOVE 

020 ANQ 02 
RSTN (8), 
NUMERIC A 
RSTN C91. 
POSITIVE 
NOT NUMER 

RSTN (11 
NOT NUMER 

= 030 MO 
■ tO- MOVE 

1C OR (020 

20 * 10) A 

IS POSITIV 

(020 f 10) 
030) OR ( 
TO RSTN ( 

10 OR An2 

9). 

10 

2C 

C), 

CVN, 

-51 VARYIn 
AUN. 



-NO. 
TlQN" 



TO SECT-TITLE, 



NCI) 

1 MOV 

H AN2 
AND A 



IS 
IS 



NU 
NU 



TO R 
I TQ 
X 1 



t 1 TO AN.SN C 1). 

IS ALPHABETIC MOVE 2 TO RSTN (2). 
N2 IS ALPHABETIC MOVE 1 TO RSTN (3), 

MERIC MOVE 4 TQ RSTN (4), 
MERIC MOVE 1 TO RSTN (5). 

bTN (6). 

H5TN (7), 

MOVE .5 TO RSTN- £8), 



NO AN3 IS NUMERIC MOVE 1 TO RSTN (9). 



OR 
IC 
). 
IC 
VE 
14 



MO 
13 
TO 
= D3 
NU (0 
E AND 
)) MO 
D20 * 
18). 
IS NU 



AN3 IS NUMERIC MOVE 10 TO RSTN (10), 
MOVE 99 TO RSTN (11). 

VE 12 JO RSTN (12). 

TO RSTN (13) . 

RSTn (14), 
0) MOVE 15 TO RSTN (15), 
20 * 030) MOVE 16 TO RSTN (16), 

NOT 020 * D4.Q MOVE -17 J.Q R.SI.N ti7)« 

VE 18 TO RSTN (18), 

10) AND (NOT CAN2 IS ALPHABETIC)) 



MERIC AND AN3 IS NUMERIC MOVE 19 TO 



UR AN2 
* D30 A 



IS 
NO 



NU 
AN 



MERIC ANU AN3 IS .NUMERIC A.ND..D3.0 a. 

3 IS ALPHABETIC MOVE 20 TO 



G C20 FROM 2 BY 1 UNTIL C20 > CVN. 



20 TO ANSN (C20 
ERIF.Y. 



P006 SECTION. _ _.,. 

61t MOVE "P006" TO SECT-NO, 

MOVE "RELATION 7,4.11 " 
„ MOVfL-1 T.0...C1_Q.» C2 ,Q ... . 

MOVE 1.6 TO C42, 

MOVE *1,0 TO C52, 
_MV.E_JLli_-CJO.i_.. . 



TO SECT-TITLE. 



CQBULTST 
COBOLTST 
COBQLTST 
COBQLTST 
COBOLTST 
COBQLTST 
COBOLTST 
COBULTST 
COaULTS-T 
COBOLTST 
COBOLTST 
CQB-ULTST 

COBOLTST 
'COBULTST 

CQ-Q-LTS-T 
COBOLTST 
COBOLTST 
COBOLTST 
CUBOLTST 
COBULTST 
COBOL T-ST 
COBULTST 
COBOLTST 
CQBULT-ST 
COBOLTST 
COBOLTST 
COBOLTST 
COBOLTST 
COBQLTST 
06* 6*68 
COBULTST 
COBULTST 
COtJQLTST 
COBQLTST 
COBOLTST 
COBOL T-ST 
COBQLTST 
COBULTST 
COBQLTST 
COBOLTST 
COBOLTST 
CflfiQ LIST 
COBOLTST 

COBULTST 
CO.ti_ULJ..-SI 
COBOLTST 
COBOLTST 

XQfiOLTST 
COBULTST 
COBULTST 

.CUftflLTST. 
COBOLTST 
COBOLTST 

._J___G__L_1_ 

COBQLTST 

COBOLTST 

_____»___,___ I. . 
COBOLTST 
COBOLTST 
CO BOLTST 



J& 



• • 



SI 

;n" 
i] 



w 

1*0 

4 

t" 

146 
4ti 

47 

*8 



010050 
0J0060 
01007.0 
OlOOflO 
010090 
01 100 
010110 
010120 
0-1013.0 

otouo 

010150 
Q 1.0 16.0 
010170 
010180 
010190 
01O200 
010210 
01.0220 
010230 
010240 
04.0*50 
010260 

010270 
010280 

010290 
010300 

010310 
010320 
010330 
010340 
010350 
010360 
010 370 
010380 
010390 

010400 
010410 
010420 
0.104.30 
010440 
010450 
Q1046.Q 
010470 

010480 

01049.0 
010500 
010510 
Q1M2.Q 
010530 
010540 
0195^0 
010560 
010570 
01 O580. 



010590 
010600 

JU&A1SL 
010620 
010630 

JL1044JL 



MOVE 
MOVE 

IF .0 

IF C 

IF C 

IF C 

IF 

IF C 
IF C 

R 
IF. 

R 
IF 

IF C 

R 

IF 

IF C 

M 

MOVE 

MOVE 
PERF 

GO T 
P-61, M 

61E. E 
62. PE 
6E, EXl 



99 

TO 



1 

1 
1.0 ~. .. 
42 « 
10 » 
10 «... 

CIO 

MOVE 

10. . m 

30 a 
STN ( 
1.0 ...» .. 
STN ( 

CIO 
MQVX.. 
73 i 
STN ( 

CIO 

ELSE 
10 » 
GV.E. 1 

12 T 

1 TO 
OR MP 

62. 
OVE C 
XlT. 
RFORM 
Tt 



TO C7 3. 

C10# 020* D42* 052, 

C20 MOVE 1 Ill .KilN CD... _ 

CIO MOVE 2 TO RSTN (2). 

C20 AND » C42 AND s 042 MOVE 3 TO RSTN (3). 

C52 AND 020 AND 042 AND C52 MOVE 4 m.fiSll* C4)« 

- C2Q OR C4* ANO C52 OR D10 AND 052 

5 TO RSTN (5). 

C20 -. AND C 20 __._■ 7. A ..AND. -C5.2 T.bXN~.M_LV-E- 6 ...IO...R-S.XN. C 6.1-.. 

DlO MOVE 99 TO KSJN C7) ELSE IF > MOVE 7 TO 
7). 

C 30 MO V E. 9 9 . ID....H SIN C 8 ) T hESJN ISE IF > MQ-YE -a8.-X.Q-... .._ 

6) ELSE IF < MOVE 8 TO RSTN C8). 

= C73 OR > C73 MOVE 99 TO RSTN (9) ELSE _F < 

9 10 HS1.N.. (._.!, .- -~ - __ - - 

ClO AND C30 > C20 THEN IF > C73 MOVE 10 TO 
10). 

« C 2 AND .0 1 > C..1 .0 MOVE .llJ_-_II__A_LLk_U_U - _ - 

IF * MOVE 11 TO RSTN (11). 

C20 AND CD10 OR 020 AND C73 > CIO) QR < C30 

2.. TO. RSTN CU). 

C CVN. 

AUN, 
*61 VAR^lNti C2Q. f ROM 1 BY 1 UNTIL _C2Q> CVN. 

20 TO A^Sn (C20). 

VERIFY. 



P007 
71. 



SE 

MOV 
MOV 

MOV 

MAY 

MOV 

IF 

IF . 

IF 

IF 
IF. 
IF 
IF 

IF 

IF 
IF 
IF 

it 

IF 

IfL. 
IF 

IF 
IF . 
IF 
IF 

1L. 



CTION. 

E M P0Q7" . 10 SECT-AUl, 

E "RELATIONAL OPERATOR 
E 1 TO CIO* 010. 

E 2...T..CL...C2..QX 020..*.. 

E 1.5 TC C42» C52. 

ClO EQUALS 010 MOVE 1 To 

C. 1.0 f. 0.1 MOV E 1 ID ... AN___. 



7-4-12 " TQ SECT-TITLE. 



RSTN 
111 . 



(1) 



ClO 

ClO 

C2-Q 

C20 

ClO 

ClO... 

C20 

C20 



IS UNEQUAL TO C20 MOVE 2 TO RSTN (2) 
t C20 MOVE 2 TO ANSn C2). 

EXCEEDS -C1.Q- .AQMJL 3 1Q_RS T.N 

> ClO MOVE 3 TO ANSn (3). 



U)t.- - _ 

RSTN (4). 



TO RSTN (5) 



IS LESS THAN C20 MOVE 4 TO 

.« C2.0—M0YE 4. TJ1.-AAS.AL _J1_. ... 

IS NOT LESS THAN ClO MOVE 5 

* ClO MOVE 5 TO AN*N (b), 
<L2.0_IS GREATER THAN C 42 MOVE 6 TO "STN (6). 
C20 GREATER THAN CIO MOVE 6 Til ANSN (6). 
C20 IS GREATER ClO MOVE 7 TO RSTN C7>, 
C2a-fifi£Al£JBLJLLflLM0VE 7 JSLMiliL.jJ.ls 



COBOLTST 
COBQLTST 

..c.qbj_.l.isi. 

coboltst 

coboltst 

COB-OilST 
COBOLTST 
COBOLTST 
-EOBXLLTJiX. 
COBOLTST 
COBOLTST 

cnfiflLx&i. 

COBQLTST 
COBOLTST 
XOB-UEXS-I. 
COBOLTST 
COBOLTST 
..OHflO-LXS-T. 
COBOLTST 
COBOLTST 
..COBaLTST. 
COBOLTST 
COBOLTST 
G0BO4I&T 

COBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
COBOLTST 
CX1B0.LT SI 
COBOLTST 
COBOLTST 
.CQ&DE-IST- 
COBOLTST 
COBOLTST 

CGflULTST 

COBOLTST 

COBOLTST 
.OilBilLTSI 
COBULTST 
COBOLTST 

.cnanLisi. 

COBOLTST 
COHOLTST 

_C0.B0i.TS4.. 
COBOLTST 
COBOLTST 

XaBilLT_SX- 
COBOLTST 
COBOLTST 
C_QBlJLT.ST 



COBOLTST 
COBOLTST 
COBQLTST 



CIO IS NOT GREATER THAN C20 MOVE 
D20 J C20 MOVE 8 TO AISSN (8), 
IL1__.~U~E£U1AL- JJUUQ- MiiYE_5_JJL.fi.SJJ- 



8 TQ RSTN (8), 

t_U_» 



ClO NOT EQUAL TO C20 MOVE 9 TO ANSN (9), 
ClO LESS THAN C20 MOVE 10 TO RSTN C 10), 
ClO LESS C20 MOVE 10 TO ANSN t lQ). 



COBOLTST 

COBOLTST 

CQBQEXSJ- 

COBOLTST 

COBOLTST 

CQBQLI-LI- 



J& 



• • 



i;., 



>>. 
ill, 

ID 



ol)| 



_i 
I- 



18 
49 
5(1 
51 
52 
53 
54 
55 
56 

*I_ 



010650 
010660 

01067 

010680 
010690 

010700 
010710 

010720 
010730 
010740 
010750 
010.760 
010770 
010780 

040790 

010800 
010810 
.040.830 
010830 
010840 

04.0850 

010860 
010870 

.010880 
010890 
010900 
0-10910 
0l09?0 
010930 
010940 
010950 
010960 
0.10970 

010980 
010990 

01 1000 
011010 
0H020 
QUO 3.0 
011040 
011050 
01 1060 
011070 
011080 
_QU09P 
011100 
01U10 
.QUI 2 
011130 
0H140 

.JJL1U5Q- 
011160 
01U70 
011180 
011190 
011200 

■ 0X1210 
011220 
0H23O 

..0.11.240 



IF C20 > C'i2 MOVE 11 TO rt_TN (11), 

IF C20 GREATER C42 OR EQUALS MOVE 11 TO ANSN (11). 

IF C20 GR£ A TER THAN CIO AN0.-C4.2 -A-ND Ci2 GA£AT£R THAN- .042- MR 

EQUALS C42 MOVE 12 TO RSTN (12) f 
IF C20 GREATER CIO OR C20 EQUALS CIO MOVE 12 TO 



7E, 



ANSN. C12). 
MOVE 12 TC CVN. 
MOVE 1 TO AUN. 
PERFORM VERIFY, 
EXIT. 



P008 SECTION. 
81, MOVE "P008" 

MOVE 

MOVE 

MOVE 

MOVE 
MOVE 
MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 
IF 

IF 1 * 

IF C20 

IF C73 

IF "A" = 

IF AN3 * 

IF CIO * 
IF GOA 

IF ClQ ♦ 



62. 
83, 
8E. 



IQ .S£tT-.NH, 
"OBJECT OF RELATION 
+1 TC CIO, 
♦.3 TO . C2Q. 
33.33 TO C«2# C73, 
1 TO 010, RFZl OF 

3.. TO 020* .RXl OF Ml 

"ABCDEFGH" TO AN1, 
ZEROS TO C73# GINT. 
SPACES TO CRP-U32* 
ALL "WXY2" TO CRP-0 
2 TO GON. 

"IJKL" TO RFY1* HFY 

CRP-DS2 a SPACES MO 

a C1C MOVE 1 TO HST 

> 2.9*99 -MOVE 2 T 

* ZEROES MOVE 3 T 

AM MOVE 4 TU R 

SPACES MUVE 

MOVE 6 TO R 

* RX1 OF MI 

G.N C.33 MOVE 

(4) » GN (3) 



7.4.14 •' TO SECT-TITLE, 



042# D94, 
MISC. 

«U 

AN2# AN5, AN8. 

AN3. 



ALL 
010 
(3) 
1 / 

GN 



IF CIO * 

IF CIO * C2o * C3Q t C 
MOVE. 10. . I.U BSIN. UP). 

IF C42 f C73 MOVE 11 TO 
IF C42 * 094 MOVE 12 TO 
IF AN5 > AN2 MOVE 13 TQ 
IF AN5 t RDU2 OF R04 MOV 
IF RDD1 QF R02 /RSS2 OF 
IF R00.2 IN RP4 . > ..RFYl MO 
IF RFX1 < RSS2 OF MlSP M 

IF GINT « ZEROS MOVE 19 



Si* RDD2 OF RU4 OF MISN* RSS2 OF 

H* . 

VE 18 TO RSTN (18). 

N (1), 

U RSTN (2). 

U RSTN (3). 
STN (4), 

5. TQ RSTN (51. 

STN (6), 

SN MOVE 7 TO RSTw (7), 

.a TO. KSTN. _ta.?..t 

MOVE 9 TO RSTn (9), 
30 / CIO + (3 * C73) 

RSTN (11), 
RJsTN (12). 

HSTN C13). _ 

C 14 TO RSTN (14) . 
MSP MOVE 15 To RSTN (15), 
VE 16 TO RSTiv C LG_L» __ 
OVe 17 TO RSTN (17), 

TO RSTN (19). 



COBOLTST 
COBULTST 
COBULTST 
COBULTST 
COBOLTST 

CO-BULTST 
COBULTST 
COBULTST 
COBULTST 
COBOLTST 
COBOLTST 
. COBOLTST 
CObULTST 
COBULTST 
COBULTST 
COBOLTST 
COBULTST 
C0B&L-T-4-T. 
COBOLTST 
COBOLTST 
COBULTST 
COBOLTST 
COBULTST 

CQBOLTSI 

MI5PCUBULTST 
COBULTST 
COBULTST 
COBULTST 

COBOLTST 

COBULTST 

COBULTST 
COBOLTST 

cobultst 

coboltst 

coboltst 

cqbqltsi. 

cobultst 

cobultst 

cobjilisi.. 

COBOLTST 

COBOLTST 

CiiMLISI. 

COBULTST 

12-22-67 

C OBULT ST 



MOVE 1 ID ..AUN._._ 

MOVE 19 TO CVN. 

PERFORM 82 VARYING C30 FKUM 1 BY 1 UNTIL C30 > CVN. 

...G.0 . . j.a_ a x^ _ _ _ __ _____ 

MOVE C30 TO ANSN (C30), 
PERFORM VERIFY, 

EXIT....' ._. _ 



COBOLTST 
COBOLTST 
COBOLTST 



•PjQflft.s_LC.nain* 



COBULTST 
COBULTST 

JLQB___L.Ii.L. 
COBOLTST 
COBOLTST 
COBOLTST 
COBULTST 
COBOLTST 

_______Q__I___t_ 

COBOLTST 
COBULTST 
COBOLTST 



#H« 



TS 



J? 



_»{ 

30 

til 

& 
13 

nil" 



,!!>■ 
..(0 
4 1 
4? 
43 
44 

46 
47 

4a 

49 
50 
61 
52 
53 
54 
55 
56 



011250 
011260 
1127.0 
011280 
011290 
041300 
011310 
011320 

..011330 
011340 
0U350 

.011360 
011370 
011380 
0.113.9 
01U00 
01H10 
014L420 
011430 
011440 
0.1 U50 
01H60 
011470 

011480 
011490 
011500 
OU 510 
011520 

011530 
011540 
011550 
011560 

01157.0 
011580 
011590 

...01 1.6 00 
011610 
011620 
0116 30 
011640 
011650 
0.11660 
011670 
011680 
0116.90 
011700 
011710 

..011.7.2.0 
011730 
011740 

JH.175XL 
011760 
011770 

.XUJLTafl 
011790 
011800 

011820 

011830 

_X1.U84.0~ 



091 



MOVE 
MOVE 
M0VE..1 
MOVE 
MOVE 

MOVE 
MOVE - 

IF -CIO 
IF PLUS 
IF MINU 



up 

"F 
TO 
10 
0. 
5. 



IF 
IF_ 



IF 



IF 

.IF. 

IF 

IF 

IF 



094 



093. 
092. 



095, 
097. 

096, 



+ C20 

Cl-0 

RSTN 
CIO 
DIVIDE 
IF C52 
MINU 
Cl-0 
CIO 
CIO 
CIO . 
MOVE 
GO To 
£4*0 
MOVE 7 
GO TO 
MOVE 7 
ADD 1 T 
GO TO 
GO To 
MOVE 99 
MOVE 8 
If C.10 
CiO MU 
MOV 
IF CIO . 
MOV 
IF CIO 
... 01 
AN 
MOVE 1 TO 

MOVE 10.... T 

PERFORM V 



MOVE C 
C42 MO 

-s CO 2) 



IF 



CC9" TO SECT-NO. 
CRMULA 7.4.15" TO 

.CIOj. 010. 

TO C20; 
50 TO C02; 

5C TO C42; 

3.25 TO C52. 

i 3500 MOVE CIO 

_C20 ....> MINUS £.52...* 

S CIO * r 3500 

> -C52 PLUS 
*__C2.0...s.-{C42 

(33. 
MULTIPLIED BY C20 = 
D ..ai.-CClO-*--21-T*lE.N 

IS NEGATIVE MOVE 4 
S C52 IS POSITIVE M 

+-. £02 *-- A ..-- C42-.-9- 

PL.US c02 + 4 MINUS 
♦ C52 * C52 / Ci.2 > 
P t US G52 TIMES Ci2 

6 TO ANSN C6). 
92 093 DEPENDING ON 
10). 

TC ANSN £7), 
95. 

TO RSTN U\i 
C D10, 
94, 

96. 097 DEPENDING 

99 TO RSTN £b) . 

Tc RSTN (8), ANaN C 

*.....C.2Q *..*. 2. .». ..100 ...MU 

LTIPLIED 8Y C20 ExP 
E 9 TO ANSN £9), 

+... 020 * 2 *.* 1C10 

E 10 TO RSTN £10). 

PLUS C20 TIMES 2 £ 

VIDEO by ^_Mi.Nyb C5. 
SN £10). 
AUN. 

.q:..cv_n. 

ERtFY. 



SECT-TITLE. 



U RSTN (1). 

C.4a._MQ V.E.....2 10 iiS-T-t-... 421.. __ 

10 TQ ANSN £1). 
VE 2 TO ANSN £2), 
-*- 4-7 tC-10 * 2) J8L&Y.E-.--3..I0 _ 

£C4^ MINUS C02) TIMES 4 

-M-0-V4 3--4U -A*| $H ISU- 

TO RSTN £4). 

OVE 4 TO AnSn £4). 

MI1V E 5 m. jm&--£--54----.- - 

C42 IS ZERO MOVE 5 TQ ANSn £5). 

MOVE 6 TO RSTN £6). 
DIVIGEO a* 042. IS .peSji4v.fi 

CIO * C20 MINUS CC10 * 6) 



ON CIO ** It 



a). 

VE. 9 TIL ..RSTN C9J* 

ONENTIATEO BY 2 EQUALS 100 

+ .CIO) / 2 - C52 ...b...25.*.25 

XPUNENTIATEU BY £C10 PLUS CIO) 
2 .. ELfiXl A L 5. .. .2.5. j_25 J_D VE 1 Q LQ 



P010 SECTION. 

0I.«. -MD.V.£..J!PaiC" .1.0 ...S.£CI.-N.a^ 

MOVE "ALGEBRAIC EXPRESSION 



RULES'* TO SECT-TITLE 



MOVE 
....MQi-E. 

MOVE 

MOVE 

J40-VX 

IF C20 

IF 



TO 
-1C 



C30. 



10 TO C20. 
2,50 TO C42, 

-U25__U) C5_2_. 

+ ClO " C42 * 
CIO * C20 / C42 
J£__C_20. i-XClO— - 



8,50 MOVE ClO 
• 4 MOVE 2 TO 
C-fl-2J._il__S H ^5-a..i-0-UE. 



TO RSTN CD, 
RSTN £2). 
-3-..T-0--aSTN XiX 



C06ULTST 

COBOLTST 

..C-OJ-UL-TST 

COBOLTST 
COBOLTST 

..COB^L-ISI-.. 
COBOLTST 
COBOLTST 

COBUL-T-S-I 

COBOLTST 
COBOLTST 

^^a0L-TST 

COBOLTST 
COBOLTST 

com w- 

COBOLTST 
COBOLTST 
CO&OLTS-T 
COBOLTST 
COBOLTST 
G-&BULTST 
COBOLTST 
COBOLTST 

CUBUL-T-S-T 
COBOLTST 
COBOLTST 
COB0L.IST 
COBOLTST 
COBOLTST 
C-aBilLLSI. 
COBOLTST 
COBOLTST 
..CHB.aL.ISI 
COBOLTST 
COBOLTST 

COMOLTSI 
COBULTST 
COBOLTST 

.C_QB.ULT.5I .. 
COBOLTST 
COBOLTST 

. caiui-isi 

COBOLTST 
COBOLTST 

-CX1BJJ-LX.S-I 

COBOLTST 

COBOLTST 

£_OJDJ_XSJL 

COBOLTST 

COBULTST 

COB OL T ST 

COBOLTST 
COBOLTST 
XQBULXSX- 



COBULTST 
COBOLTST 
.COBULTST 



COBOLTST 
COBOLTST 
COBOLTST-. 



• t 



!■:-.' 

lb 



2.1 



. 'LI 

'.:'•■ 






v, 

50 
SI 
52 
53 



011850 IF C42 * (C20 / CIO) = 25 MOVE. 4 TO KSTN (4), COBQLTST 

011860 IF CIO * (+C1Q) * (-C10) = "1 MOVE. b TO RSTN (5), CObULTST 

011870 IF CIO * C-C1Q * U.C20 *. .C10.J...+. C521) a 7.-75 MOVE 6 TO COBQLTST 

011880 RSTN (6). COBULTST 

011890 IF CC10 + C20) * (C42 + Cb2) + (CIO * C20 / (CIO + CIO)) COBQLTST 

011900 * 18,75 MGVE 7 TO RSTN (/), COBQLTST 

011910 IF CIO + C20 * CHd - 20 MOVE 6 TO H^TN (8). COBOLTST 

0U920 IF C20 + C20 / C42 "CIO * C42 = 11. bO MOVE 9 TO RSTN (9). COBULTST 

011930 IF (C20 + C20) / 042 -■ ( C 1 * C42 ) * 5.5 MOVE 10 TO COBULTST 

011940 RSTN (10), COBOLTST 

011950 IF (CIO * (C20 / (C30 * (C42 / (CIO * C30))))) = 4 COBOLTST 

011960 MOVE 11 TO RSTN C .11.3 . COBOLTST 

011970 IF CIO * C20 / C30 * C<*2 / ClO * C30 = 25 mOVE 12 To CQBuLTST 

011980 RSTN (12), COBOLTST 

011990 IF CIO + C20 ** CiO = . lOl MQVt 13. TO RSTN . (1.3.), COBQLTST 

012000 IF C30 * C20 ** C30 a 200 MOVE 14 TO RSTN (14), COBOLTST 

012010 IF C19 + C20 ** CiO * C3o * C20 ** 030 a 20001 MQV£ 15 COBOLTST 

0t20?0 TO fi-STN (IS). C-OBOLTST 

012030 IF C20 ** C30 ** (-ClO) * (C20 ** C3C> < 1 MOVE 16 TO COBQLTST 

012040 RSTN (16), COBULTST 

012050 IF C20 ** CC.10 ...+.. .1) . t 030.** cClO + Z) t (C42. + 4.) ..* CQBULTST 

012060 (C30) * 121 MOVE 17 TO RSTfc (17), COBULTST 

012070 IF C30 ** (ClO + C30 "1) / (C30 ** CC 10 + C30 - 1) + 4,0) COBOLTST 

012080 ...■ 0,50 MOVE 18 TO Kt>TN (lli), COBOLTST 

012090 MOVE 18 TO CVIN. COBULTST 

012100 MOVE 1 TO AUN, COBULTST 

012110 PERFORM 0102 VARYING C20 FROM 1 BY 1 UNTIL C2q > 18, COBULTST 

012120 PERFQRM VERIFY, COBULTST 

012130 GO TO 010E. COBULTST 

012140 0102, MOVE C20 TU A N3N (C20>. COBOLTST 

012150 010E. EXIT. COBULTST 

012160 COBULTST 

012170 COBULTST 

012180 COBULTST 

012190 COBOLTST 

012200 COBOLTST 

012210 COBULTST 

012220 COBULTST 

012230 COBQLTST 

012240 P011 SECTION. COBOLTST 

012250 0111. MOVE " P C H " TO StCT-M, COBOLTST. 

012260 MOVE ••PRIMARY UnSJGNEU NUMBER DATA NAME 7,4,19 •• 22« CQBQlTSI 

012270 TO SECT-TITLE. CQBULTST 

012280 MOVE 1 To CIO. CQBULTST 

012290 MOVE 2 TC C20. - _ COBOL-TSJ. 

012300 MOVE 10 TO C30, COBQLTST 

012310 MOVE 23,45 TO C42. COBQLTST 

012320 MOVE 0.25 TO. C02, _ CfliiOL.IS.T- 

012330 IF C20 ** (C42 - C30 -C02 - 0.20) > 8192 MOVE 1 TO COBULTST 

012340 RSTN (1), COBULTST 

.04-235 - IF 23*ZC = C42 - C 02 MOVE 2 T U RS lh C.2X. ._ ...._ _ CQBQLTST 

012360 IF ClO * c2° " ClO MOVE 3 TO RSTN (3), COBOLTST 

012370 IF C30 ** (C20 - ClO) a 10 MQVE 4 TU KSTn (4), COBOLTST 

. Q122&Q .......... IF 1.C.42. ...*_ C3Q-S -3A.A5 M.QV.£ .._5._Ifl._RSJ N _15J. .. ._ ...._ CflUQL I SI . 

012390 MOVE 123,45 TO GN (4), COBQLTST 

012400 MOVE ALL 3 TO RDD2 OF KD2 OF MISN. COBQLTST 

Q12A1Q - IF GM CA) = C-3Q-AA-C2.Q * jCJL2_ MOVE- 6 1. Q_R&lN_lA-l* ...C0.BilLl5.T. ... 

012420 IF BX1 OF RD2 Of! MlSN s Rx2 OF R0D2 OF RD2 QF MlSN COBQLTST 

012430 MOVE 8 TO RSTN («). COBQLTST 

.01.244.0 IF. JLXi OF MI.S.N._+ _N..._(.4} ...» t.7514 * C.30».» C2Q / 2 + GN (4) COBQLTST 



V I 

ai 

in 
:,1 

/I- 
.16 



43 

|44 

r ;- 
r 

c" 

,51 

K 
*' 

64 -. 

55 
56 



012450 
01^460 

012470 

012480 
012490 
012.50.0 
012510 

012520 
012530 
012540 
012550 
012.560 
012570 
012580 
012590 
012600 

012610 
.0126.20 
012630 
012631 
012640 
012650 
012660 
012670 
012680 
012690 
012700 
012710 
012720 
012730 
012740 

012750 
012760 
012770 
012780 
012290 
012800 
012810 
012820 
012830 
012840 
012850 
012860 
012870 
Q12.880 
012890 

012900 
0l294a 
012920 
012930 
-fl-USUDL. 
01294 2 
012950 
012-9.60.. 



012970 
012980 
0129-90. 
013000 
013010 
JLlA&ZO~ 



+ 23.4b - (CJO * 3,15 / 1.5) MCVE 7 TU RSTN (7), 
MOVE 1 TO AUN. 
MOVE .7 TO GVN. 

PERFORM 0112 VARYING C20 FROM 1 BY 1 UNTIL C20 > CVN. 
PERFORM VERIFY. 
GO TO C11E-* 
0112, MOVE C2C TO ANSN (C20). 
011E. EXIT. 



TO SECT- TITLE. 



OPEN 
OPEN 
MOVE 
MOVE 
MOVE 



MOVE 
MOVE 



IN T-F1# FA27 OF WSTF12. 
OF If 11 IN TP-FL-1* . 



P012 section. 
0121. 

MQVE ."PQ.1.2_".... 1..Q S.ECI.-NU/ 

MOVE "SIMPLE VARIABLE 7.4.23" 
MOVE 2 TO CIO* 010, 

012A1 SECTION, 

012AH. 

INPUT COIN, 

OUTPUT .TP-FL-1* TP-FL-2, 
"A" TO ANl* DAN1* WCAM, 
ALL "Al" TO FA27 OF TF12 i 
89 TC..FA92 0F.EA32 IN FA22 
FA92 OF USTKll* 
FA92 OF FB24 OF TF21, 

"ABC" TO AN3# 

99 TD AN2, 
GO TO 012A12. 
012A13. 

IF FA433 CF FA271 OF FA9* qF FA32 OF FA22 OF TF11 UF 
TP-FL-1 

5 . ..... . „ 

FA433 OF TP-FL-2 
ANB 

FA433 OF WSTFi 1 - 

MOVE 1 TQ RSTN Cl) ElSe MUve 99 TO RSTN (D, 
IF DlO = 3 GO TO 012A14. 

012A12* 

MOVE CIO TC HSTN (CIO); 
ADD 1 TO CIO. 

IF CIO. < 4 THEN . 

GO TO 012A12 ELSE 
GO TO 012A12X. 

012A14, 

IF FA451 CF FA341 OF FA231 OF FA121 

IN TFt2 IN T-Fl Cl# 1* I, \> 1) * . ■ .-„ ~ 

WST-F12 (2* 2* 2-*- -2* 2~> M-Q-VE- 4-Jfl . ft&JN (4) 

ELSE 

MOVE 99 TO RSTN (4). 
-F-A272 0F-F-A22-0F- IF 11 ...5.F-A272- OF *XLf. l\-*&$- F-A2Z2— GF-..-F-B2-4. 

OF TF21 
MOVE 5 TO RSTN (5) 

-XL-HE- - - - - _ _.. .- __ 

MOVE 99 TO RSTN (5), 
MOVE ALL 5 TO QC3D, 

- -.-.EE.RFfl.RM_. 12A-1-2Z- VARY 4R& C-iO--.-I.HQJl -4 6.Y ._4._U.AI4L. -0-4-0- 

GO TQ 012A142, 
012A2 SECTION, 
JQ1.-2A12JU- 



OF FA64 IN FA27 
FA451 OF FA27 IN 



4f- 



.____ 



C080LTST 
COBOLTST 

.C-OHLU.T-ST 
COBULTST 
COBOLTST 
C0BO-L1ST 
COBOLTST 
COBOLTST 
G0B4LT-ST- 
COBOLTST 
COBOLTST 

.-CCaOLW - 
COBULTST 
COBULTST 

. CflBJlLIS.I 
COBOLTST 
COBOLTST 

.CQBQLJS4 

COBULTST 
COBULTST 

CO-BOLT S.I 

COBULTST 
COBOLTST 
COBOLTST ... 

COBULTST 
COBULTST 
COBULTST . 

COBULTST 
COBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
G&BLLTST 
COBOLTST 
COBOLTST 

CO-BOLT ST 

COBULTST 
COBULTST 

COii.aL-T.ST. 

COBULTST 
COBOLTST 
COB-OLTST 
COBULTST 
COBOLTST 
XOU-aLW ~ 
COBOLTST 

COBOLTST 

.-Cfl-BiJtT-S-T 

COBOLTST 

COBULTST 

12-Z2=-6Z- 

12-22-67 

COBOLTST 

CO BO L TST — 

COBOLTST 

COBOLTST 

COBOLTST 

COBOLTST 

COBOLTST 

C0BU LT-A1— 



57) 



• § 



Hi 

I- 



:.'h 

as* 

.10| 

:m 

|32. 



.Of 



43 
M 
46 
46 

il 
48 
iH 

51 
52 
53 
S4 

W 

i« 



013030 
01 3040 
01 3050 
013060 
013070 
Ql30fl0 
013090 
013100 
013110 
013120 
013130 
013140 
013150 
013160 
013170 
013180 
013190 
01 3 20Q 
013210 
013220 
Q1323Q 
013240 
013250 
013260 
013270 
013280 
013282 
013283 
013290 
013300 
013310 
013320 
013330 
013340 
013350 
013360 
013370 
013380 
013390 
013400 
013410 
013420 
013430 
013440 
013450 
013460 
013470 

013480 
013490 

01*500 

.OllLUL 

013520 

013530 

0_i3_54Q 

013550 

013560 

013570 

013580 

013590 

_0_Ll_6J?.CL 



MOVE 6 TO RSTN (6); 
GO TO 012A14Y. 

012A11X. - - 

ADD 1 TO DlO; 

GO TO 012A13 IN 012A1. 

012A14Y. 

IF D-32 OF D-3l OF 0-3 OF 0C3D (1> 1* l> = 0-32 CI* 2> 3) 
MOVE 7 TC HSTN {1)1 

IF 0-32 a.F-0-Jl C2#2>2) f D-32 OF 0-3 (1*1*1) 

MOVE 99 TO RSTN (8) 
ELSE 

MOVE 8 TO RSTN. (B) J 

IF D-32 (3,3#3) > D-32 OF QC3D (1,2#3) 
MOVE 99 TO R5TM ( 9 } i 

ELSE 

MOVE 9 TO RSTN (9); 
GO TO 012AUX. 

0122 SECTION* 

012A14Z, MOVE 99 TO RST,\ (10). 
012999. 

MOVE 9 TO CVN; 
MOVE 1 TO aun; 
GO TO 012PERF. 
012A12Z. 

MOVE CIO TO ANSN (CIO), 
012PERF, 

MOVE 4 TO RSTN (4), 
CLOSE CDIN WITH RELEASE. 
PERFORM VERIFY, 



P014 SECT 
0141, 
MOVE 
MOVE 

MOVE 
. MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
IF G0 
IF GO 
ANSA 
IF D- 

ClO 

MO 

M 
IF D- 

- CI 

GN 

MOV 



ION. 

"PQ14 
"SUBS 

1 TO 

2 TO 

3 TO 
10 TO 
ALL..." 
ALL 8 
ALL 
ALL 4 
A (t) 
A OF 

( C 10 J 
21 (1 

+ 2) 

VE_ M 8 

OVE " 
43 (C 

0*l„C3 



" IQ...S 

CR1PTE 

cto; 

ClOi. . 

c2o; 

C30, 
A" TO 

TO OC 
5 TO 

TO... FA 

*IS AL 
tOAN ( 

*j ) - 

AND D 
" TO R 
B" TO 
20 MIN 

CL_.oj.y_i 



ect-nq; 

D VARIABLE 7.4,24" 



TO SECT-TITLE. 



GQAN. ..Q.C2D*. 0C30- AN4* .A.N2i 

40» gqn» gint; 

FA27 OF TF12; 

2.7. IN WSTF.1.2., 

PHABETIC MOVE GO A (ClO) TO RSTA (1); 

2) IS ALPHABETIC MOVE "AAAAAAAAAA" TO 



0C30 C3# CIO 
DIO - CIO) 



3* 



CD10 

EL 
_________ 



** 

SE 
1". 



DIO 



D-32 OF 0-31 IN D"3 QF 
-32 QF 0-3l CC1Q, ClO# 

ST A (_2.)/ __ _ _____ 

ANSA (CIO ** CIO ♦ CIO * 010 - 1), 

US OlO; C'dQ PLUS C1Q> 10 EXPONENTIATED BY 

QEJl....BY_0J.0_..MjJiUS„.C2CiX^_._Q.l (C30 /.DIP) OR 

) MOVE "C" TO RSTA CC-D) 



COBULTST 
COBULTST 
COHuL.Tii.r 
COBOLTST 
C080LTST 
. ...COBOL I ST. 
COBULTST 
COBULTST 
COBULTST 
COBOLTST 
COBULTST 
COBULTST. 
COBULTST 
COBULTST 
COBOLTST 
COBULTST 
COBOLTST 
.C0_-._-L.t_-I 
COBOLTST 
COBULTST 
COBULTST 

COBOLTST 
COBOLTST 
COBOLTST 

COBOLTST 

COBULTST 

COBULTST 

COBOLTST 

COBULTST 

COeULTST 

COBULTST 

COBULTST 

CQBOLTST- 

COBOLTST 

COBOLTST 
COBULTST 

cobultst 

cobultst 

..cobjultsj:- 

COBOLTST 
COBOLTST 
CHflLQLXS-1. 
COBULTST 
COBULTST 
_i___l____LLl__I_ 
COBOLTST 
COBOLTST 

CJ_iiJ____I__J 
COBOLTST 

COBOLTST 
COBU LTST 



TO RSTA (3) 



MOVE "C" TO ANSA (C20), 
IF FA451 OF WSTF12 (l»i»l'l»l) 
__ M.Q VX_i_LQ_R5I_N „_U__ 



* AN2 



COBOLTST 
COBOLTST 

__________14I .. 

COBOLTST 
COBULTST 
C5BULISI 
COBULTST 
COBULTST 
COBULTST 



# • 



1 8 
U 



ail" 
»| 

30 

;ji 
32i 

:i« 

36 
J » "" 

ij.. 



r 
■i 



013610 
013620 
.01 3-630 
013640 
013650 
01 3.6 60 
013670 

013680 

X) 116 90 
013700 
013710 
01 37 20 
013730 
013740 

..JD.13750 
01^760 
013770 

_fil.37fl0 
013790 
013800 

. 0U810 
013820 
013830 
013840 
013850 
013860 
013870 
013880 
013890 
013900 
0l39l0 
013920 
013 930 
013940 
013950 

013560 
013970 
013980 
013.990 
014000 
014010 
Q14Q20 
014030 
014040 
Q11Q5.0 
014060 
014070 

Qi isao 

014090 
014100 
JUiUJJL 
01H20 
014130 
01*140 
014150 
014160 
OillTJ}.. 

014180 
014190 



* FA341 l\\ WSTF12 (2>2*2»2) 



(5) ELSE 



83888888 



a*. .. .«a»U..~ - - 



CiOi 



IF FA341 IN TF12 Cl#l»l»i J 
MOVE 2 TO RSTN (2). 

0142, 

MOVE 10 TO FA63 OF TF12 U )» FA63 OF TK12 (2)* 
FA63 OF TF12 (3), 

IF F.AS83 Of If XI CI J MOVE 3 TJ3 S..S.T.N (J) * . 

IF FA884 OF T F 1 2 CD10) MQVE 4 JO RSTN C 4 ) . 
IF FA885 CF TF12 COlO + ClO) MOVE 99 TO RSTN 

MOVE. 5 ig..RSJ.N C51. - - - - 

IF FA341 OF TFl2 (2*2*2^) * FA341 OF TF12 (l#l»l*i) 
MOVE 15 TO RSTN (15), 

IF FA6A -OF TF 12 IX) J £A6_4 In MStF.lZ-.L2.l- 

MOVE 16 TO RSTN (16), 

IF FA121 OF TF12 (1,2) t FA121 IN WSTF12 (2,2) 

. MOVE 17 TO R£LT.N (1Z1*...- 

IF FA231 OF FA2? OF TF1"2 (1*2*2) * 
MOVE 6 TO RSTN (6), 

EXAMXNE GOA- CC2Q) REPLACING ALL ••A.' 

IF GOA (C20) a "BSBBBBBBdB" 
MOVE 7 TO RSTN (7). 

MOVE GOA (C20) TO QUA {C<>0 

IF GOA (2) =s GOA (3) 

MOVE 8 TO RSTN ( 8 ) , 
MOVE 3 TO-AUN. 
IF FA451 CF T-Fl (1/ l» 
FA451 IN WSTF12 (2, 
MOVE 9 TU RiiriM C9)l 
FA341 OF WSTF12 (1, 
FA341 jN TF12 (2> 2* 2# 

MOVE 1C TO HS.T.N (10 J J 

FA231 OF FAi2l IN FA64 OF 
FA231 CF FA04 In WSTF 12 

MOVE H TO RSTN (11). 

FA121 OF Tp-FL*1 (I* 1) IS GREATER Th A N 
FA121 In FA64 In FA27 In KSTF12 (2# 2) THEN 

MOVE. 12 TQ..RSJN. Ll_2li 

FA64 OF TF12 (CIO) EXCEEDS 
FA64 IN WSTF12 (ClO) THEN 

MOVE U -I-Q... Mm..X 1.3.1 i 

FA27 QF TF12 EQUALS FA27 OF WSTF12 
MOVE 99 TO RSTN (14) ELSE MOVE 14 

MOVE 17. TO CVN, 

PERFORM 0143 VARYING C20 FROM 1 BY l UNTIL C20 > CVN 
MOVE 3 TB CVA; 

- PERFORM. VEfiIFY; 

GO TO 014E, 
0143. 

MOVE.. C20 ...T..£L.AiiS.N... LC20X... . 

014E. EXIT. 



1» 
2' 



1* 
2« 



1) 
2* 



> 

2) 



IF 



IF 



IF 



IF 



IF 



1 



If 1) < 

2) Then 



FA27 
(2* 



OF 
2* 



TF12 (1* 
2) THEN 



1* D * 



THEN 
TO RSTN 



(14) 



C060UTST 

CUBUUTST 

. LOaULZSI 

COBULTST 

COBOLTST 
_£11BJ1L.I&1. 
COBOtTST 
COdUtTST 
.-C&BLLT-.S.1 
COBULTST 
COBOLTST 
C-OaaL-T-Sl 
COBULTST 
COBOLTST 

.-cfl-aucj-ST 

12*22-67 
COBULTST 
..CJJfiOL^-S-T 
COBOLTST 
COBOLTST 
LoaCL-T-S-T - 
COBULTST 
COBOLTST 
COaOLTST 

COBOLTST 
COBULTST 
COBatTST 
COBULTST 
COBULTST 

C-OB-ULTSI 

COBULTST 
COBULTST 

X-GRUL.T-.ST 

COBOLTST 
COBULTST 

. aaRULJSI. 
COBULTST 
COBOLTST 

..XOHULTSI 

COBOLTST 
COBULTST 

CHB11LT-S.X. 

COBOLTST 
COBULTST 
CQBQ LTST 
COBOLTST 
COBOLTST 

..CJ1B.GLXSX 
COBULTST 
COBULTST 

-CO BU LT-SJL. 



P015 SECTION-. 
0151, 

MOVE 
-MO-VX 

OPEN 

READ 



COBOLTST 

COBOLTST 
CQ BQ LT-SJL 



"P015" TO SECT-NO/ 

INPUT COIN. 

COIN AT END GO TO 0159, 



LO .^SLCI-LIILZ*-.. 



COBOLTST 

COBOLTST 

-CQBQLTST 



— HQYE_.AjJL_»A«-lfl AT, AN7* AGP* G3S1 OF CRP^DSbi 



COBOLTST 
COBOLTST 

CQBOLTSJ- 



M 

3 

4 

s t 



• • 



a 

1SI 
,17, 
1(1 

I'.!" 






11 

» 
Hi 






43 
14 
45 
46 
4/ 
43 
49 
50 
51 
52 
53 
54 
55 
56 



01*210 
01*220 
01*230 
01*240 
01*250 
01*260 
01*270 
01*280 
-0-1*200 
01*300 
01*310 
01*320 
01*330 
01*340 
01*350 
01*360 
01*370 
01*380 
01*390 
01*400 
01*410 
01**20 
01**30 
Q14.4 3A. 
01*440 
01*450 

01*460 
01*470 
01*480 
014490 

014500 
01*510 

01*520 
01*530 
01*540 
01*550 
01*560 
01*570 
.0.1*580 
014590 
014600 
0.1*610 
01*620 
01*630 
01*640 

01*650 

01*660 

01*670.. 

01*680 

01*690 

.011Z0J3 
01*710 
01*720 
0_1*J7_3JL 



01*740 

01*750 

JUMAS- 



MOvE ALL 9 TU D73 GGAN P4.H3 ANH 
IF DAN1 IS NUMEHJC MOVE 1 TO RS 

I F . AN2 AL.PHABE T. I C .MUVE 2 TO ...AS 

IF 0AN1 IS NUT NUMERIC MOVE 99 

ELSE MOVE 3 TO RSTN C3), 
IF 0AN2 NOT ALPHABETIC MOVE 99 

ELSE MOVE * TO RSTN (4)> 
IF DAN1 IS ALPHABETIC MQvE 99 T 

ELSE MOVE 5- TO RSTii (5 U, 

IF 0AN2 NUMERIC MOVE 99 TO RSTN 

ELSE MOVE 6 TO RSTN (6), 
READ COIN AT. END. 00 TO 0159.. 
IF F1010A IS NUMERIC MOVE 99 TO 
ELSE MOVE 7 TO RSTN < 7)» 

IF F 10304 N.UH£«.lC..Mav.E & IQ. hSJ 

IF F10116A NUMERIC MOVE 9 TO RS 
IF F1D11SA NOT NUMERIC THEN MOV 

ELSE- MOVE 10 - TO-R-S-TN- tJ-0->»- 
IF F1D105A ALPHABETIC MOVE 99 T 
ELSE MOVE 1J TO RSTN ( \\)i 
IF F1D110A IS. NOT NUMERIC -MOVE 

ELSE MOVE 12 TO RSTN C 12 ) . 
READ COIN AT END GO TO 0159, 
MOVE 5555 TO AN*. 
0159, 

IF OAl* IS ALPHABETIC THEN MOVE 
IF D^7 NUMfeRiG MOVE 99 TU RSTN 

ELSE MOVE 14 TQ RSTN (14). 
IF DA8 IS NOT NUMERIC THEN MOVE 
IF CIA IS ALPHABETIC MQVt 16 To 

if cia is not numeric move 17 t 

if a7 is alphabetic then move 1 

if an? Alphabetic, then m.uye.,i9. 

if agp is not alphabetic then m 
else move 20 to rstn (20). 

if an* numeric then move 2l tq.. 

if goa (1) numeric then move 22 

if goa (2) alphabetic thtn move 

ELSE. MOVE 2.3. ID R5IN t2J 3* 

IF PEH3A IS NUMERIC THEN MOVE 9 
ELSE MOVE 24 TO 

IF PEH3A ALPHABETIC 

ELSE MCVE 25 To 
IF AN8 NUMERIC THEN 
IF G31 OF CRP 

"else" Move 

IF 



G2T2 
TN (1) 
T4V (21 

TO RST 

TO RST 

RSTN 
(6) 



OF CRP-DS5 
i 

i 

N (3) 

N (4) 

(b) 



RSTN (7) 



TN C9) 
E 99 T 

RSTN 

99 TO 



RSTN 
THEN 

RSTN 

MOVE 



(2<u; 

M.Q.V1. 9 
(25), 
26 TO 
• DS5 NUMERIC THEN 
27 TO RSTN Yz7~)l 



13 TO 
(14) 

15 TO 
RSTN 

a RSTN 
6 TO R 
TO 8 ST. 
OVE 99 

RSTN ( 

TO RS 
V9 TO 

9 TO R 

9 TQ R 

RSTN ( 
MOVE 9 



RSTN (10) 

(11) 
HSTN (UJ. .- 

RSTN (13); 



RSTN (15)* 

(16); 

(17). 
STN (18); 

N ( 1.9 ). ;....../ 

TO RSTN (20) 

21). _ 

TN (22), 
RSTN (23) 

STN (24) 

&.JN 12.5.) _ _ 

26); 

y ..To RSTN (27) 



G31 BF CRP-DS5 ALPHABETIC THEN MOVE 99 To RSTN (28) 

EL&E-MEV! 28 IDL.R&IN 1281 .*. _ _.__■ __ 

MOVE 28 TO CVN; 

PERFORM 0153 VARYING C20 FROM 1 BY 1 UNTIL C20 > CVN; 

.__ MQ.VE..1.J1U- lUNi _ 

PERFORM VERIFY; 

GO TO 015E, 
JUSiLi _,_ ___ ._ ... _ 

MOVE C20" fo~ANSN (C20) . 
015E, 
EXllx __....._ _.._ 



COBULTST 
COBULTST 
COBOLTST 
COBULTST 
CQBQLTST 

GOBOLTST 
COBULTST 
COBOLTST 
COBULTST 
COBULTST 
COBOLTST 
COBOLTST 
06-06-68 
COBULTST 
06-06-68 
06*06-68 
06-06-68 
G-080LTST 
06-06-68 
COBOLTST 
06 -0.6.68 
COBOLTST 
COBULTST 
COBOLTST 
COBULTST 
COBULTST 
COBULTST 
COBOLTST 
COBULTST 
COBOLTST 

COBOLTST 
COBULTST 

COBALTS! 

COBOLTST 

COBOLTST 

COBOLTST. 

COBULTST 

COBOLTST 

CJIMOLI SJ... 

06-06-68 

COBULTST 

Q6.-i?_6-.6_a 
COBOLTST 
COBULTST 
COBUL TST 

COBOLTST 
COBULTST 

_CDflJflLIAI_ 

COBULTST 

COBOLTST 

■ CQB U U T AJ- 



CQBOLTST 
COBOLTST 
0J2MkIf_L 



01*770 

01*780 

_flJL*7.«L 



COBULTST 
COBOLTST 

..CflMkIM 

COBOLTST 
COBOLTST 
COBOLTST 



3 

4 

6 

7 



10 

11 < 

12 

13 

14 ( 

15 

16 

17 I 

18 

19 

20 < 

21 

22 

23 I 

-:: 

pel 

127 

28 

29 ( 

301 

31 

32 ( 

33 

34 

35 { 

36 

37 

38 ( 

39 

40 

41 < 

42 

43 

44 ( 

45 

46 

47 

48 

49 

50 

61 

52 

53 

54 

55 

56 

57 



m 



i ; 
ij 



2.1 1 
•J' 



IB 
29, 
M 
31 

:u 
:n 

M 

:.K, 
J6 

371 * 

.'Mi 

|4Ci 

14 1! 

42 

43|* 

44 

45 

46 

4; 

48 
49 
50 
51 

■3 



01*800 
01*810 
04-18-20 
01*830 
01*8*0 
01*850 
01*860 
01*870 

..jtujaao. 

01*890 

01*900 

01-* 940 

01*920 

01*930 

01*940 

01*950 

01*960 

01*970. 

01*980 

01 «090 

015000 

015010 

015020 

01503.0 

0150*0 
015050 

015060 
015070 
015080 
015090 
015100 
015H0 
0.1.5,120 
015130 
015R0 
015150 
015160 

015170 
015.100 

015190 
015200 
015.210 
015220 
015230 
015 2*0 
015250 
015260 

..Q152JJ3 
015280 
015290 

-015-JOO 



015310 
015320 

.0.15.13 Q_ 
015340 
015350 

.0.15-340. 



P016 SECTION. 

0161* 

MOVE "P016" TO SECT-NO; 

MOVE "AMOUNT COMPARISON 7. 4.26" 70 SECT-Tl 

READ COIW. AT END DISPLAY "SECTION 16 CARD 

GO TO 0169, 
MOVE 1 to cio; 

MO.VE 10 ....12, C2fl;. 

MOVE -25,25 TO C52; 

IK CIO IS POSITIVE MOVE CIO TO RSTN U)J 

IF C4^-tS---2-€^a---i«CVC~«9-«UR«-T^X2) 

ELSE MGVE 2 TO RSTN U)i 
IF C 10 IS NEGATIVE THEN MUVE 99 TU RSTN (3 

ELSE. MOVE... J XQ iiS.I.N.....tl.)., 

IF C52 NCGATIVE MOVE 4 TO RSTN (*)> 
IF C92 ZE«0 THEN MOVE 99 TO RSTN (5) 

ELS_L.MO.VJL. 5 .lD_.Ri.TM.. .15 li 

IF C52 POSITIVE MOVE 99 TO RSTN C6) 
ELSE MOVE 6 TO RSTN (0). 

NEGATIVE _M.d_V.E_. 7 TQ RSTN (.7,1, 
POSITIVE THEN MOVE 8 TU RSTN 
99 TO RSTN (8). 
C2. OF CRP-CMR-8.C 

GQN. 
OF CRP-CMP-SC IS POSITIVE MQV 
NOX POSITIVE MOVE .9.9 TO.«STN 
TO RSTN ClO). 

zero then, muve 11 tq rstn (11 
not Zero then, move 99 to rstn 



TLE. 

EfiROfi- 



IF 
IF 



C20 IS NOT 

C52 IS NOT 
ELSE MOVE 
MOVE 123*5 TO 

MOVE ALL 5 TO 
IF CC2 QF C2 

IF GN (5) 
ELSE MOVE 
IF F1D116 
IF F1D1.15 

ELSE 
IF F1010 

ELSE 

IF F1020 
ELSE 



C8) 



IS 

10 

IS 
1.3 

MOVE 



12 TO RSTN C12. 



is negative then move 

fcCVL-iJ. .. TO-..R .5 IN ... 1 13 li . 
IS POSITIVE THEN MOVE 
MOVE 1* TO RSTN (14), 



99 TO NSTN 



99 TO HSTN 



E 9 TO 
CIO) 

j; 

(121 
(13) 
(1*) 



RSTN (9), 



016F.. 
IF 

IF 



CIO. ♦ 
RSTN 

ClO +. 



1 ** 100 

ci5); 

1 .*.* I -Oj 



2 / 



75 i +... 



2 IS POSITIVE THEN 
C2Q. -1.2. ZERO ItiLh. 



RSTN (16); 



IF 



IF 



IF 



IF 



IF 
IF 

IF 



C52 - 
RSTN. 
C20 * 

THEN 



MOVE 
___.____. 
C20 ** 3 ivEGATIVE THE,\ MOVE 17 TQ 

5 IS POSIT I VE 



15 T 
1.6.. I. 



a 
a 



BY 



.LlilJJ. 

MINUS 



5 IS NEGATIVE 

35,2 IS ZERO~ 



015370 
015380 
01 535 XL 



ClO * 

.1.17.1., 

C52 - ClO * 2 + C20 / 

MOVt 99 TO RSTN (18) 

ELSE... nUy.£-.l__lfl-J_S.lJl_ £1-1 i ..._ 

C52 TIMES C52 PLUS C20 EXPONENTIATED 
THEN MOVE 99 TO RSTN (19) 

el s£ my E 1 i __ _L_«__TJ_. 

C52 TIMES 3 DIVIDED BY C20 
THEN MOVE 99 TO RSTN (20) 

, -....-£l_S£..iMU.VE..20.-.lO-.JtSXN-4241-» - - 

SIN (CIO) - ClO MINUS COS (CIO) X 
SIN (CIO) - ClO MINUS COS (CIO) IS NOT 

XM£M_ _m_.E_._a_ J_fl_____t__ ( 2 1 ) i .._. 

SORT (C20 ** CIO) IS POSITIVE THEN MQvE 
RSTN (22), 

J.F__L_L..tClJl-Pj..US g) IS NEGATIVE THFN MOV E QQ fQ Wp TN (g3> 

ELSE MOVE 23 TO RSTN (23). 
MOVE 23 TO CVNJ 
PERF-DRM ai63...V.AAY_LNfi...-CZQ^JiaM-l.-HJf.-X.--AlTlL C?Q f CVNi 



COBQLTST 
COBULTST 
-C£fcUj_XSl 
CQBULTST 
COBQLTST 
CGfLO__t£_t. 
COBQLTST 
COBQLTST 
XX3B4L-I-S-T 
COBQLTST 
COBQLTST 
CnBLlLT.ST 
COBQLTST 
COBQLTST 
COB-OLXS-X 
COBOLTST 
COBQLTST 
__Q_.QL.XSX. 
COBQLTST 
COBQLTST 
CQilflLXSX 
COBOLTST 
COBQLTST 
COBaLXSJ 

COBQLTST 
COBQLTST 

COBOL XS.I 

COBQLTST 

COBOLTST 

.CDJ.ULISX 

COBQLTST 
COBOLTST 

C-0B4JVTST- 

COBQLTST 

COBQLTST 

COBOL TST- 
C06QLTST 

COBQLTST 
.._U____J.___- 
COBQLTST 
COBQLTST 
C_1_!_LLX_-..T . 
COBQLTST 
COBQLTST 
CQBULTST 
COBQLTST 
COBQLTST 
____U_1_I__L. 
COBQLTST 
COBQLTST 
COB Q L T S T 



EQUAL TO 

22 TO 



COBOLTST 
COBQLTST 

. CXlBliLXSX- 
COBOLTST 
COBQLTST 

-CUBQLTST- 



COBQLTST 

COBOLTST 

XqBQLTSX.- 



1,1' 
1 1 

H 
15 
Hi 

ivl 

IB, 

is' 



I',' | 

:>ri 
..nil 

;■ 

a.v| 

, til 



« 

(4 
t5 
MS 
• 7 
44 
49 
40 
51 
52 
S3 
i4 
)5 



oibaoo 

015405 

015420 
015430 
01.5440 
015450 
015460 
.015470 
015480 
015490 
015500 
015510 
015520 
01.55 3.0 
015540 
015550 
015560 
015570 
015580 
015590 
015600 
015610 
015620 
015630 
015640 
015650 
015660 
015670 
015680 
015690 
015700 
015710 
015720 
015730 
0.15740 
015750 
015760 
015770 
015780 
015790 

..lll.5a.Q0 
015810 
015820 
01583-0 
015840 
015850 

.015860. 
015870 
015880 
QX5J19 Q 
0t5900 
015910 

JU&SL2CL 



015930 

015940 

Q1.59£Q- 

015960 

015970 

.0-15580 



MOVE 1 TO AUN, 
0169. CLOSE COIN WITH RELEASE. 

CLOSE TP-FL-1 PdRGE* CLOSi. TP-FL-2 PUhGE, 

PERFORM verify; 

GO TO 016E, 
0163, 

MOVE C20 TO ANSN CC_0), 
016E. 

EXIT. 



P018 SECTION. 
0181, 

MOVE "PQ.18" TO SECT-NQi 

MOVE "GO STATEMENT 7.5,4" TO SECT-TITLE; 

MOVE 1 TO C101 

GO. TO P181. 

01899, NOTE GO TO NOPARA. 
P181. 

ALTER 0182 TUP.RO.CELO TO P182. 

MOVE CIO TO RS1N (CIO) 

GO TO P183, 
S181 SECTION. 
L* MOVE 2 TO RSTN (2). 

IF CIO * 1 GO TO P184. 

ADO 1 TO Cl-Oi 

GO TO S181, 
P183, 

MOVE 3 TO RSTN C31J 

GO TO S181. 
P184. EXIT. 

31.82 SECTION, 

P185. 

MOVE 4 TO RSTN (4), 
P1821. 

MOVE 5 TO RSTN (5), 

GO TO P189. 

0182, GO TO. 

S183 SECTION, 
P189. 

MOVE 6 TO RSTN (.6)4 

GO TO 0182 OF S182, 
H182. EXIT. 

Sia..4...SECT-lOJi*- - - - 

SL184, 

MQVE 7 TO RSTN (7)4 

G..0 T___MLU ■ - 

G0L1, MOVE C20 TO RSTN (C20> 

ADD 1 10 C20 ADD 1 TO CIO. 

GQ. Ifl._JiODL» . - __ _. 

MOVE 888 TO RSTN (8). 
SML1, 
....... MOVE ..8.-.10-JISJJ.N LAX*. — .- - - -- - _ - 

GO TO SML1S. 
S185 SECTION, 

SLLLU- -- — - — - -'- 

GO TO 018VE* 
SML1S, 

.JL.,.I.Q..-.RJS:IN L9X* ..... - __. 



12-22-67 
COBOLTST 

ia-5-7.o ... 

COBOLTST 
COBOLTST 
XOHLLTST . 
COBOLTST 
COBOLTST 
COBOLTST 
COBOLTST 
COBOLTST 
COBOLTST 
COBOLTST 
COBOLTST 
CO-BULT-S-T 
COBOLTST 
COBOLTST 
.... COBALTS*.. 
COBOLTST 
COBOLTST 
COH.OLTS..I 
COBOLTST 
COBOLTST 
.COBOLTST 
COBOLTST 

COBOLTST 
COBOLTST 
COBOLTST 
COBOLTST 
... .COBOLTST 

COBOLTST 
COBOLTST 
.COBOL 1ST 
COBOLTST 
12-22-67 

..CQBilLTST 
COBOLTST 
COBOLTST 

.. COBOL IS* 
COBOLTST 
COBOLTST 
CO-_LLI_I. 
COBOLTST 
COBOLTST 

.XQBQLISX 
COBOLTST 
COBOLTST 
CDJOLISJL 
COBOLTST 

COBOLTST 
_COJJiiL.-LS.T_. 



COBOLTST 
COBOLTST 

COBOLI-JL 
COBQLTST 
COBOLTST 
CO.BOLT.S..T- 
COBULTST 
COBOLTST 

.COBOLTST. 



7. 
Ill 



■II 
2U 

,»l 
30 
*■! 
32 
3j 
iH 

3<: 

JT " 
3ri 
.]!. 
Hi) 

4,| 
42 

44 
Ah 
46 ~ 

41 

It) 

4»| 

60 

Sl| 

52~ 

H 

54 

55 

56 

57 



015990 
016000 
01.6 Q. 10 
016020 
016030 
016040 
016050 
016060 

Q16Q70- 
016080 
016090 
.0161.00 
016HO 
016120 
Pi 6 130. 

016H0 
016150 
016160 
016170 
016180 
016190 
016200 
016210 
016220 
016230 
016240 
016250 
016260 
016270 
01628(3 
016290 
016300 
0X6 31 Q 
016320 
016330 
016340 
016350 
016360 
016 3.7.Q 
016380 
016390 
1116400 
016410 
016420 
016430 
016440 
016450 
.0.1-6.460 
016470 
016480 

.-0-16-490 
016500 
016510 

_________ 



MOvE 1 TO CIO. 

MOVE 10 TO C20. 
GDDL . GO TO GDLl- -GDL2* GDLJ_ G.0L3S - 

DEPENDING CN ClO. 

MOVE C20 TO HSTN (C20). 

MOVE 15 ID . RS.TN. C.15.J QQ . Tfl. .P.lfl.9«, 

GDL2, 

MOVE C20 TC KSTN CC20); 
ADD 1 ...TO CIO ADD 1 JQ G2Q, 

GO TO GDDL. 
S186 SECTION, 
_____ MOVE C2fl T.Q. _________ <___!*_ _... - 

ADD 1 TO ClO ADD 1 TO C<iO. 

GO TO GDDL. 

SI 87 SEGI..10N.I ,__ __ 

GDL3S, 

MOVE C20 TO RSTN CC20); 

ADD... 3 XQ C4Q ADD 1. T.Q..._._0_ - _.. .__ 

GO TO GDDL. 
P1899, MOVE 15 TO CVN. 

PERFORM. P18F VAHXlivG C2.0. FROM 1 BM UmU.V-C2.Q-> C_.*U- 

MOVE 1 TO AUNi 
GO TO 018VE. 

P18F. , . . 

MOVE C20 TO ANSN (C20). 
018V_, PERFORM VERIFY, 



P021 SECTION, 

L021, 

MOVE "f 021-" TO _£CX__.UX _. _ 

MOVE "OPTIONAL KILE AND _. MESSAGE" TO $ECT-TIT|_E. 

DISPLAY "KEY IN OF QPTFlLl" i 
OPEN-INPUT 0P.T21 - 

DISPLAY "KEY IM OF ". 

OPEN INPUT OPTl. 

READ QPXl AX.E.NQ. D..l.Sf.L.A-Y..."lSI..-.QPF.L R_*Q._I1__U_____1_J_- _ 

ELSE DISPLAY "OPTIONAL FILE HEAQ BRAinCH £RRQR", 

READ 0PT2 AT END MOVE 3 TU CVN) MOVE 1 To AUN/ 

PERFORM VE.BIF U ELSE .!_________ ?2_D. .QF.__ READ __A___..__I___R_«.. 



P023 SECTION. 

2 3 L I » -MflV-E ~ * P023 » ._ XO _S£CX*JtiU- 

MOVE "READ-WRITE STATEMENT 

OPEN INPUT COIN, 
_____ .1 1.0 CI Ox -..C..2Q1.--WJ1V-L- -XU.. ZQ x . 

READ COIN AT END GO TO Ci,Cl. MOVE CU'N-TQ WSVA1 

OPEN OUTPUT UNBLKT, 
— EERFiRM. ?3WT 1____._I____S 



UNBLOCKED FILE" TO SECT-TITLE 



S.1Z* 



016530 

016540 

_0l65i(L. 



016552 
016560 

-C1657C- 



CLOSE UNBLKT. 
OPEN INPUT UNBLKT, 
.£ER£___L_________ 1HE.U 



COBULTST 

COBULTST 

CLLBLL-TST.- 

C08ULTST 

COBOLTST 

CaBiiLXSX. 

COBULTST 

COBULTST 

COJULT-S-T 

COBOLTST 

COBOLTST 

_C_.___X..S.X 

COBOLTST 
COBULTST 

..CJQBULXSX 
COBOLTST 
COBOLTST 

COB.ULXSI 
COBOLTST 

COBOLTST 

. C&B43VI.5X 

COBOLTST 

COBOLTST 

COBQLXSX-. 

CUBULTST 

COBULTST 

CGBiiLTST 

COBULTST 

COBOLTST 

COUOLTST. 

COBOLTST 

COBOLTST 

XO.aiiLXSX 

COBOLTST 

COBULTST 
COBOLTST 

COBOLTST 
COBULTST 

.niaovxAi 

COBOLTST 
COBOLTST 
.CXLflOVI^T . 
COBOLTST 
COBULTST 

..C0IIUVW4— 
COBOLTST 
COBOLTST 

- COBQ L T -SX- 

COBOLTST 
COBULTST 
C OBULTST 
COBOLTST 
COBOLTST 

■COBOL T ST 



CLOSE U-NBLKT WITH 

IF 020 ■ MOVE 1 

XVSELIF C&Q-JL-gfl _ 



2lyg.-_UNXlL_.uaN ..8,1 025 , 

PURGE, 

TO PHSNO DISPLAY PHASE* PHSNO* WRESUlT 



COBOLTST 
COBOLTST 
CQBULXSX 



j, ^ S "* 7 

COBOLTST 

CObOLT-SX. 



«! 
US 

«i 
»ft 
SO 
*1 
>2 
53 
,4 



J 7 



016580 
016590 
016600 
016610 
016620 
0166 30 
016632 
0166/40 
016650 
016660 
016670 
016672 
016680 
016690 
016700 
016710 
016720 
016.730 

016740 
016750 
016760 
016770 
016780 
016790 
016800 
016810 
016620 
016825 
016830 
016840 
016850 
016860 
016870 
016880 
016890 
0.16 9.0 Q 
016910 
016920 
0469 30 
016940 
016950 
016960 
016970 
016980 
01^990 
017000 
017010 
01? 020. 
Ol?030 
017040 
01 70 5Q 
017060 
017070 

oi.ZflaflL 

017090 
01 ''100 
..017.110. 
017120 
017J30 
QlZllO 



GO TO 23l2. 
HEAD COIN AT 
PERFORM -21V, T 
CLOSE UNBLKT 
OPEN INPUT U 
PERFORM 2 3* A 
IF D20 * C 
DISPLAY PHAS 

23L2, READ. UfelBLK 
PERFflRM VERI 
DISPLAY " CA 
READ COIN. .AT 

23WT. MOVE CIAPv 
MOVE C72 TO 

23RAC, ..ADD ClC 
DISPLAY "ERR 
IF RWAl / W5 

IF C20 ■ .3.0 
ABN1 TO RECN 

23L8. EXIT, 

23RACR. SU.BTRAC 
DISPLAY "MIS 
ELSE IF RWAl 
ADD ClO TO C 
MOVE ABM TO 

23L9. EXIT. 

CLCI. CLOSE GDI 
CLOSE UNBLKT 

23EX, EXIT, 



OPEN OUTPUT u 

END GO TO Cu 

1025 TIMES. . 

WITH NO $EWi 

NBLKT REVERSL 

CR THRU 23L9 

MOVE 2 TQ PHb 

E, PhSNQ, WRt 

I. AT END MIIVL 

FY READ CDIN 

RD INPUT ERRO 

E.NO G.Q rO CL 

TO RWAl ADD 

ABM WRITE h 

TO VBN. READ U 

OR IN NU, OF 
VAl MOVE 1 TO 
DISPLAY "NO, 
0; WRITE A-R 



NBLKT, MOVE ZERO TO C72, 
CI. MOVE CIAN TO WSVA1 RWAl, 



NO 
0, 
U.N 

NO 

su 

.5 
AT 
R" 
C.I 

ci 

*A 
NB 
KE 

il£ 
FR 



; MOVE TO D20, 

MOVE 1026 TO VBN, 
TIL V8N = 1. 



50 GO 
f AU N. 



LT ELSE IF C20 * 
TQ CVN M.UVE 1 
END GO TO CLCI. 
ACCEPT AN2 

TO C72 
1. 

LKT AT ENO 

CORDS WRITTEN". 
20* RSTN tC20i; ADD ClO TO 
...k&ONfi- RECORDS E..X.CEEO.S- 50" 
GM RWHDlJ GO TO 23L8. 



10 23L2. 



C20* 
HOVE 



t. clo from v.8n read lnblk.t a..t end 

Take in nu. of records written"; 

i WSVAl MOVE 1 TO 020, RSTN CC2Q); 

20; IF C20 5 50 OISPLAY "ERROR. NO , EXCEEDS 

RECNO wRITL A-R FROM RwHOl, 

N WITH RELEASE, . 

WITH PURiE, 



50' 



P028 

0281, 



SECTION, 

MOVE "PC28" TO SECT-NO, 

MOVE "GENERAL RULES FOR 
TO SECT-TITLE. 
MOVE 1 TQ CIO, DlO, CC2 uF CRP-CmP-DS> 
MOVE 10 TO C.20.J.. 020* G I CU* RSTN C21/ 
MOVE 10,10 TO C42* GF2 (3); 
ADD CIO TO RSTN CI) 

ADD DiO ANSN CI) 

SUBTRACT CIO FROM RSTN C2); 
MOVE 1 TO ANSN (1) 
MOVE 9 TQ AN^N C2), 
ADD 1' 2' 3» 4, S GIVING RSTN C3) 
ADD 5* D20 TU ANSN C3). 
MULT IPL I. 199 BY 2 fiI.V.iN.fi ..C.3Q. 
MULTIPLY 999 BY 2 GIVING 030 
MOVE C30 TO HSTN U> 

.MOVE. D 3.0 TQ.AST.tt C5? 

MOVE 1998 TO ANSN C4) 
MOVE 998 TO ANSN C5) 
MUL T I P.L I ...95 9 _ B Y ...2 _fi IV !M 

RSTN (6). 
MULTIPLY 999 BY 2 GIVING 

T ._BiJ.N ._ 1 7.1i._ 

MOVE 13 TO ANSN <6)# ANSN (T ) 

ADD 10 T0 C20. 

LV.IOJ_..l_lJilQ ..c 2.0 JLIV.I.NG C5 2 



ARITHMETIC ST ATE.ME N T £ 7j 9 , 1 ,1 " 



C.3..Q._0 H_ S l. It .. . ER R Q.R. ._ AQQ _Li. 3jl ._Q2 Oj 

030 UN SUE ERROR ADD 1, 2# D20 



CQBQLTST 

CQ6GLTST 

CQBQLTST 

COBOLTST 

CQBQLTST 

COBOLTST 

CQBQLTST 

COBOLTST 

CQBULTST 

COBOLTST 

COBuLTST 

CQBQLTST 

CQBQLTST 

CQBULTST 

COJBULTSr 

COBULTST 

COBULTST 

COBULTST 

COBULTST 

CUBQLTST 

CQUULTST 

CQBULTST 

COBOLTST 

CQBULTST 

CQBULTST 

COBULTST 

COBULTST 

10*5-70 

CQBULTST 

COBULTST 

COBULTST 

CQ3ULTST 

C-OBULTST 

COBOLTST 

COBULTST 

CQBULTST 

CQBQLTST 

COBULTST 

CQBQLTST 

COBOLTST 

COBULTST 

.CIl.iig.LI SI 

CQBULTST 
CQBULTST 
C_Q.BQLTSJ 
COBULTST 
COBOLTST 

. COfiQLIS.T. 
CQBQLTST 
CQBQLTST 

.£HJ3!ilLXS.T_. 
CQBQLTST 
COBQLTST 

.GriBULIM. 

COBULTST 
COBQLTST 

.C.OBQL.IS.T 

COBQLTST 
COBOLTST 

CJLB_ULIS_T.. 



3 
4 

M 

6 

7 

*( 

9 
10 

u\ 

12 
13 

»i 
15 

16 

"I 

18 
19 

20 | 
21 

|23 i 

n 

127 

-j 

2a 

30 
31 

32 % 
33 
34 

36 
37 
38 ^ 

39 
40 

«-l 
42 

43 

44 % 

45 

46 

47 | 

48 

49 

50 % 

51 

52 

53 4 

54 

55 

56 I 



• • 



■t 
■1 



?.H 
'/9| 
30 
.11 
32 

'!'« 

■■A 



4U| 
41 
42 
<J 
A 

ft 

c 



01^150 
01/160 
QUITO 
01/180 
01/190 
017200 
01/210 
017220 

...Q1Z.2JO 
017240 
017250 
QU2.6.Q. 
017270 
01/280 
0.17290 
01/300 
017310 
Oil 220 
017330 
01/340 
.01/350 
01/360 
01/370 
01/380 
01/39 
01/400 
01 U 10 
017420 
01/430 
IQ.174A.0 
01?450 
01/460 
Q17..47.Q 
01/480 
017490 
.047.500 
01?510 
01/520 
0.1.7530 
01/540 
01/550 
017560 
01/570 
01/580 
01/590 
017600 
01/610 
01/620 
01/630 
017640 
01/65JL 
6 1/660 
01/670 

.5..lZA8_0_ 



01/690 
01?/00 

JLUZlfi. 
01/720 
017730 

-01 77 40- 



MOVE Cb2 Tc RSTN (8) 
MOVE 6.66 TO ANSN (8). 

DIVIDE ...3 IMCJ. c?..0 GIVING C„5£„KDJUWQLD 

MOVE C52 TO HSTN (9) 
MOVE 6,6/ TO ANSN (9) 

CQMPUIE HSTN. (IQ). .... CC.2. UF CRP-CMP-DS / 80. 

MOVE 0,012 TU ANSN (10) . 
COMPUTE RSTN (11) RUUNDEU 

MOVE GUQ43--IQ AN.S.M till,, 

ADD 23456,99999 To G&0 
MOVE C50 TO «STN (12) 

MQV£ 21456... 10 A&L5.N.. U2.) , 

ADD 23456.99999 / GIVING PEFHS RQUNUED. 



CC2 OF CRP-CMP-DS / 80* 



MOVE PEFPS TO RSTA 

MQYE„." + 2 34.57. ...0.0 

MULTIPLY C42 BY -2 
MOVE PEF-S TO RSTA 

MQUZ -"...... .-20*20 

MOVE 12 TO CVN; 
MOVE 2 TO CVA; 

MOVE 3 J£. A..UN; 

PERFORM VERIFY, 



en; 

. TL.IILJLUSA C1.X. 

GIVING PEF-S 



(2) 



TU...AN5A-...C2J 



P029 
0291, 



SEC 

M 



MOVE 
MOVE 
.MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
ADD 
ADD 
ADO 
ADO 
ADJ1. 
ADD 
ADD 
ADD... 
ADD 
MOVE 
MOVE 

ADD 
ADD 

MOVE 



TION 

OVE 

M.Q.V-E 

ztn 
i 



20 

12. 

9.9 ft 

-IB 

100 

CJ.Q#. 

100* 

100, 

100_, 



C20» 
-81, 

L2J_ 
123, 

D3P 
D3P 

C42" 

C42 

D7P 



"PC2V" TO SECT-NO. 

nAD \i. ...SlAlEMhl I ,9 ..,2 ... .!! 

o to cso; 0C40; 

TO CIO, 010* 

.. 10- lO-CiQ* iXSP- .CMP- DS.i 

TO DilO; RXl OF MlbM 

34 TU C42J 

ASUSLS9L9 T.Q._ JCJLQJti 

3,45 TO C52. 

TO C30; 

...RSI.!L.U)J 

ANSN (1), 

D20» C42 TU RSTN (2)' 
C20» Q20> C42_£ ANSN X2J^ 
C42* C52» RSTN (3). 
ANSN C3). 



T.Q. StCT-l4.TLE, 



020* 
11 TU 

ID... 

D3P3L; 
3R TO RSTN 
3k_T0_KSTN 



C4); 
(5>; 



CGBULTST 
COBULTST 

.jCmuLI.S..T 

COBULTST 
COBULTST 

...CnBilLIST.. 
COBULTST 
COBULTST 

..COHaiL-T-SX- 
COBOLTST 
COBULTST 

dLBilLXST.. 

COBULTST 
COBULTST 

-C-OB.ULT-S-T 
COBOLTST 
COBULTST 

XBBLUJt S-l 
COBOLTST 
COBULTST 
COBXILT&I 

COBOLTST 
COBOLTST 

CGB-G-L-T-S-T- 

COBULTST 

COBULTST 

COB-ULT-ST 

COBULTST 
COBULTST 
COfiOLISI 
COBULTST 
COBOLTST 
,.CXUiUL.J.ST- 
COBULTST 
COBULTST 
COBULTST 

COBULTST 
COBULTST 
■CJjBilLJ.Sj: - 
COBOLTST 
COBULTST 

. CIlBilLIS.! 
COBULTST 
COBuLTST 

JCMOJLISX- 
COBULTST 
COBOLTST 

..CDJ.glI.SJL 
COBOLTST 
COBULTST 
COBULTST 



TO D7P3R* 
TO D7P3L/* 
3R TO RSTN 



161L 



COBOLTST 
COBOLTST 
COBOL TST 



D7P3L TO RSTN (7)* 



COBULTST 

COBULTST 

.COBULTST 



*DD C52 TO D7P3L; 
MOVE D7P3L TO RSTN 



< 8 ) ; 



COBOLTST 
COBOLTST 
COBULTST 



• • 



«n« 



017750 


MOVE ALL \ TC QC4D, 


01' 760 


ADD D-43 (1* 1* 1* 1)' CI 


017770 


RSTN C9)i 


017780 


MOVE 232 TO MN3N (9), 


017790 


MOVE ZEROS TO PEZi; 030 


017800 


AOO 0.00-01* C 104 GIVING F 


017810 


MOVE PEZ1 TO RSTA CI )i 


017820 


MOVE "100*COO.OO" TO ANSA 


0.1/830 


MOVE ZEROS TU PECK* 


017840 


ADD D20* C52 GIVING PECRi 


017850 


MOVE PECR TO RSTA (2); 


01/860 


MOVE " S1Q3.45CR" TO An 


017870 


ADD 5 TO C30> 


01/880 


MOVE C30 TO RSTN CIO); 


1 01/890 


MOVE- 105 T-G ANSN .(10). 


017 900 


ADD 5* C20* CIO* C30* 


"V 017910 


MOVE C30 TO KSTN (11)* 


1 - 017920 


MOVE- 121 TO ANSN (ID* 


" 01^930 


ADD 5* C20* CIO* C30 GIVI 


017940 


MOVE 137 TC ANSN (12). 


lft 01/950 


ADD 0,0002* Cl04* CIO* CZ 


01?960 


MOVE 99907,550 To ANSN (1 


017970 


ADD C104* -100000 GIVING 


.- 017980 


029R0N0. MOVE ZEROS TO ciQ4d 


017 990 


ADO C104 TC C83* 


" 018000 


MOVE C83 TC KSTN C15)* 


'-* oiaoio 


MOVE 99999,999 TO ANSN Cl 


018020 


ADD C104 TO RSTN (16) ROU 


018030 


MOVE 1000CC TO ANSN (16), 


" 019040 


ADD 11111.115 TO C72i 


'" 018050 


MOVE C72 TC RSTN C17)* 


018060 


MOVE 11111.11 TO ANSN C17 


" n 180 70 


ADD..C?2-. iC9?5. 6.IV.JNS RS.r 


018080 


ADD ANSN C17), 0,01 GlVlN 


3 018090 


AOO C72* ,0095 GIVING RST 


018J0O 


MOVE 11111.119 T.Q.. ANSN C 


018110 


ADD C30* ,99999 GIVING P 


>'" 018120 


MOVE PEF-S TO RStA C3)* 


" H _ 04 8 130 


MOVE M 12.1.99" T..U ANSA 


018140 


MOVE TO PEF-S; 


018150 


ADD C30* ,99999 GIVING PE 


."' 018 160 


MOVE.. PEF-S TQ RSTA U)i 


!"' 018170 


MOVE " 122.00" TO AN6 


1,1 018180 


ADD CIO TO 010 ON SIZE ER 


018190 


M Q.V .£ 01 .0 1.0. MJN 12D J > 


4 | 018200 


MOVE 1 TO ANSN (20). 


018210 


ADD ANSN (16) TO 030 ON S 


Q 18.2 20- 


MOVE- W S2..ER M - ID, AN.S1. L5.1* 


»« 018230 


MOVE D30 TO RSTN (21). 


018240 


ADD C30* ,335 TO C42 RQUN 


u _ _ 018250 


RSTA Ul*- 


"■ 018260 


MOVE W E«2" TO ANSA (6). 


M 018270 


MOVE C42 TO RSTN (22)* 


« 018280 


MOVE 12.34 TO ANSN C22). 


52 018290 


MOVE ALL 4 TO CRP-CMP-SC* 


' 3 018300 


AC. ADD CORRESPONDING CRP-CMP 


54 018310 


MOVE Cl OF CRP-CMP-DS 


* 016320 


MOVE CC2 OF CRP-CMP-0 


* 018330 


MOVE C4 OF CRP-CMP-"DS 


a _ - mum.. 


:... MOVE CCC4 OF CRP-CMP" 



OF CKP-CMP-US* RX1 OF MISN* 



* 

tzi* 



Cl) 



SA (2). 



Nvi RSTN C12), 

J* 020* C.52. GIVING. .RSTN C-11U 

3). 

RSTN (14)* 

i C63; J721 PEF^S; pxz«lr; 010; 



b). 

•»0E0. 



>. 

«_.( 1.8.3 rtQUivOEO 

G ANSN (18), 
N (19) 

.1.9 3* 

EF-S* 

(3). _ .. 

F-S ROUNDED 

A (4). 

KQR MOVE C30 TQ RSTN (20), 



IZE ERROR MOVE »SZ ER M TO RSTA (5). 



OED ON SIZE ERROR MOVE "ER2" TO 



CRP'CMP-DS, 

-sc to crp-cmp-qs; 

TO RSTN £23); 

3 TO RSTN (24)) 

TO RSTN (25); 
fiA. IQ. R.SIN_£27Ji 



COBQLTST 

C08ULTST 

COBOLTST 

COBQLTST 

COBQLTST 

COaULTST 

COBOLTST 

COBOLTST 

COBOLTST 

COBQLTST 

COBOLTST 

COBOLTST 

COBQLTST 

COBOLTST 

COBOLTST 

COBQLTST 

COBOLTST 

C.QB.OL.IS-T-... 

COBOLTST 

COBQLTST 

CQBULTS-T 

COBQLTST 

COBQLTST 
COBQLTST 

CObULTST 
COBQLTST 
COBOLTST 
COBOLTST 
COBQLTST 
..COBULTST. 
COBQLTST 
COBQLTST 
COBOL 1ST. 

COBQLTST 
COBQLTST 
COBUL.IST 
COBQLTST 
COBQLTST 

. COdULXSI. 
COBQLTST 
COBQLTST 

..COB.U1IS1 

COBQLTST 
COBQLTST 

-COBQLJSJ-. 
COBQLTST 
COBOLTST 
COBULTST 
COBQLTST 
COBQLTST 

...C0JOL.LSJ.-.. 
COBOLTST 
COBQLTST 

COBQLTST 

COBQLTST 
COB QLTST 

COBQLTST 

COBOLTST 
LT__ 



1* 



10 

111 

12 

13 

14 ( 

15 

16 

17 < 

18 

19 

20 \ 

21 

22 

23 ( 

24 

25 

26 I 

2! 

28 

2!) ( 

30 

31 

32 { 

33 

34 

35 { 

36 

37 

38 { 

39 

40 

4,< 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



m 



.11 

:ji 

.... 



1 

46 

r' 

M 

H 

r 

S4 



018350 

016360 
018370 
018380 
018390 
018400 
018410 
018420 
018430 
018440 
018450 
018460 

018470 
018480 
0184 90 
018500 
018510 

0.18.520 
018530 
018540 
.0X8550 
018560 
018570 
018580 
018590 
018600 
018610 
018620 
018630 
018640 
018650 
018660 

18670 
018680 
018690 
018700 
018710 
018720 
Ql 8.730 
018740 
018750 
018760 
018770 
018780 

.04.8790 
018800 
018810 
048820 
018830 
018840 

.04-8.850- 
018860 
018870 
018880 
018890 
018900 

-04-8.940. 

018920 

018930 

..OXS-SAO . 



MOVE 

M 

M 

M 

M 

MO 

M 

M 

MOVE 

ADD , 

ADO . 

ADD C 

S 

M 

M 

M 
H 



MQV£ 
MOVE 
MOVE 
PERFO 



CC22 
OVE C 
OVE C 
OVE 8 
OVE 4 
VE- 88 
OVE 4 

ove e 

ALL 
001 T 
001 T 
QJRBE5 
IZE E 
OVE " 
OV.E C 
OVE C 
OVE 8 
3 TO 
7 TO 
31 TC 
RM VE 



CF CC'J OF CSP-CMp-DS TL R S T im (26); 
CC3 OF CRH-CMP-DS TO RSTN (28); 

C4 OF CRP-CMP-i)o. TO RSTN UV.).;._ 

88 TO ANSN C 2 3 ) * 
44 TO ANSN (24)/ 

..TU. ANSN (25 J - - 

44.44 TO ANSN (26)/ ANSN 
88.88 TO ANSN (27)/ ANSN 

4 TU . CRP'-CMP-Ua/ ._ 

CC4 UF CHP-CMP-SC; 

o ccc4 of c#p-cmp-sc; 

P Q.NDJ M C R P -C. M P. - 5.C ...I.Q 

RRUH MUVE "o* LK3" TO 
SZ ERJ" TJ ANSA (Hi 

C.C.4 Of P P P - CMP " 9 S TO . RS.TN. ( 3. all 

C4 OF cRP-CMP-t)S TO RSTN (31); 
88t89 TO ANSN (30)» ANSN (31). 

aun; 

cva; 
cvn; 

RIFY. 



(28); 



CRP-tMP-DS 
RSTA ( f). 



RQU.NQE.D ON 



P030 
0301, 



SECTION 
MOVE 
MOVE 



-11 
1 T 
10 
20 
44, 

444 
888 



MOVE 
MOVE 
MOVE 
MOVE 
WOVE 

MOVE 

MOVE 

SUBTRACT 
MOVE 
MOVE 

SUBTRACT 
MUVE 
MOVE 

SUBTRACT 
MOVE 
MOVE 

SUBTRACT 

MOV-£. 

MOVE 
MOVE 

SUBTRACT- 

MOVE 

MOVE 

..SUSlRACX 

GIVING 

MOVE 

SUBTRACT 
MOVE 

SUBTRACT 
MOVE 

SUBTRACT 

MOVE 

.-.SU^lRACI 



/.9. 6" TO SECT"] MILE* 



"PC30" TO SECT-lMUi 
"SUBTRACT STATEMENT 
1.11 TO C52; 

o cio; 

to caoj. . 
to 020; 

44 TO C42; 73; 

4,4.449. TO.. 094/ 

88.8850 TO 0104; 

CIO FROM C20i 

C2.Q_.tQ. RSTN (1)> 

9 TO ANSN (1). 

1 FROM 020/ 

C2Q . T.0 RSTN 12) i 

8 TO ANSN (2); 

CIO* C20, 1.0, 12.22 FROM C42; 

C42 TO RSTN (.3); 

22,22 TO ANSN (J); AnSN ( <0 . 

11,11 FROM C42 GIVING 073; 

C42 TQ RSTN C4 J 

D73 TO RSTN (5)/ 

11.11 TQ ANSN (5), 

C JO* -0* E-ROM-J1Z3-G4 VING -07 3; - - 

073 TO RSTN (6)/ 

10,11 TO ANSN (6). 

0^ U 2~* 3-*-C4iU--0 7-3 * ,4- U>- ■ C-M f-WM- -G4-0-4 

RSTN (7); 

84427,2190 TO ANSf\| (7), 
_C42 -EHQ«t-X.52..-Gl.VJLNG. RSUi t-8Xi 

-133,33 TO ANSN (8), 

C52 FROM C42 GUlNG RSTN (9)> 
-433-^3-3 T-0— Ul$t*-X±U — 

+222,22 FROM C52 GIVING RSTN (10)/ 

-333,33 TO ANSN (10). 



_-mX.gX---F.ftO.M- C 5 2 JjU-ll 



-tiiJ- 



12-22-67 
COBOLTST 

COBOLTST 

COBOLTST 
C080LTST 

. COHULT-S-T 
COBULTST 
COBOLTST 

-C0B0-L45T 

COBOLTST 
COBOLTST 

...CO-BOXTST 
COBOLTST 
COBOLTST 

. .CQB.ULTST 
COBOLTST 
COBOLTST 
COBilLTST 
COBULTST 
COBbLTST 
C-OBOLTST 

COBOLTST 

COBOLTST 

COBOi-TS-T 

COBULTST 

COBOLTST 

COBULTST 

COBOLTST 

COBOLTST 

COB.U.L.I-S. I.. 

COBULTST 

COBOLTST 

C-UJ3-0LTS.T 
COBOLTST 
COBOLTST 

COBULTST 

COBOLTST 
COBOLTST 

C.Q.B,y.LT.SI 

COBOLTST 
COBULTST 

CO.BQL.TS.T 

COBULTST 

COBULTST 

C080LT-S4-- 

COBOLTST 

COBOLTST 

-CGBGLm- 

COBULTST 
COBOLTST 

..C0auL4S-T_- 
COBOLTST 
C080LTST 

.CQBQLXSX--.. 
COBOLTST 
COBOLTST 

COBULTST 
COBOLTST 
COBOLTST - 



• • 



1,f 

Ml 

I 1 ''... 
1 6 

17 

ml 

I'll 

:n 



VII 

3." 
U 
.■>'! 



4b 
46 
4/ 

« 

30 

51 
52 
>3 
}4 
iS 
5B 



018950 
018960 
0.18970 
0189B0 
018990 
019000 
019010 
019020 
019030 
019040 
01*050 
019060 
019070 
019080 
0190.90 
019100 
01^110 
019120 
019130 
019H0 
019150 
019160 
019170 

019180 
019190 

019200 
019210 
019220 
019230 
Q19240 
019250 
019260 

049270 
0192R0 
019290 
Q19300 
019310 
019320 
.0193.30 
0193^0 
019350 

HI 9 360 
019370 
019380 
019 390 
019400 
019410 
019420 
019430 
019440 
04*450 
019460 
019470 

_Qj.8JLflH. 
019490 
019500 

_Q1.95ia. 

019520 

019530 

_JU55A0 



MOVE -222,22 TO ANSi* CI 
030R0ND. 

SUBTRACT 

MOVE 

MOVE 

SUBTRACT 

MOVE 



..Q...5. F. 
CIO T 
1 TU 
0,5 F 
CIO T 
MOVE 1 TO 
MOVE. <U.4.4.. TO 
SUBTRACT C52» 
MOVE C5J TC RS 
MOVE 44*44 TO 
ADD 0.0001 TU 
SUBTRACT C52» 
MOVE. C.52.. TO ti.S 
MOVE 0,01 TO A 
SUBTRACT C104 

MOVE C52 TO R3 

MOVE -0,01 TU 
SUBTRACT C104 
MOVE -100 OQO T. 
SUBTRACT 83333 
MOVE "$ 5*555, 
MOVE PEZ2 TOR. 
SUBTHACT 2222, 

MOVE "S2 EH1 
MOVE PEF02 
MOVE " $2»222, 
SUBTRACT 1 FRO 

10 FROM 020 

MOVE 1C TO 
030CRP, MOVE ALL 

MOVE ALL 2 TO 
SUBTRACT 

MOVE 

MUVE 

MOVE 

MOVE 

MOVE. 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 
MUyX-5.55...5 

MOVE 333.3 
MOVE 3 TO AUNi 
MOVE. 3 tfllCVJU. 
MOVE 25 TC CVN 
PERFORM VERIFY 



.PQ.3J. S.ECT.IOAU 
0311, 



1). 
CIO J 



cio rounueo; 



C9Z) GIVING C52 ROUNDED; 



ROM..- CIO GJ.V1.N-G. 

RSTN (12). 

CIO. 

ROW CIO GIVING 

«STN (13); 

ANSN (13). 

C52J 

4400 FROM 
TN (14), 

C52J 

C94J 

4400 FROM C94 GIVIinG C32 HuUnOcD; 

m 115)/ - 

NSN (15)i 

FROM +88888.88 GIVING Cb2 ROUNDED; 

TJt..t.l.6.)J. 

ANSN Cl6)> 

FROM -U111. 11485 GlVlNb RSTN (17) ROUNDED; 

ANSN (17.) 

.34 FROM Cl04 
55" TO ANSA CI 

.SJA (1). 

23 FROM C94 GIVInG PEFQ2 RCUNDEO ON SUE ERROR 

" TO HSTA (2). 

TO RSTA (3)i. 



GIVING PE^2 RQUNOEO; 

) 



CcRRE 
Ci OF 
CC2 
C4 UF 

CC2 
CCC.4 . 
CCC3 

CCA 

333 T 
555 T 
67 TO 



22" TO ANSA (3 
M C104 GIVING 
GIVING B.S.TN. (1 

ANSN (18). 
5 TO CRP-CMP- 

CBP-CMP-SCi ... 
SPONDlNQ CRP-C 

crp-cmh-os to 
f. cr.p«cm.p.-j)s t 

CRP-CMP-Db TO 
F CRP-CMR-US T 
OF CRPrCMP-US 
OF CRP-CMP-U5 
F CRP-CMP-US T 

AN.S.N. (.19); 

ANSN (20)* A 

ANSN (2D. 

5 IILAi»SN-._L2JU 

3 TO ANSN (23) 



). 

CIO ON SI^E ER«0« SUBTRACT 

8). 

DS; 

mp-sc from crp-cmp-ds roundeo; 

RSTN (19); 

RSTN. U.Q.11 

RSTN (21); 
RSTN (22); 

.1.0 R.STN til.3)i _... 

TO RSTN (24); 
Q RSTN (25); 

NSN (22), 



» ANSN (25)# 



MOVE W P031 M TO SECT-NUi 
MOVE ^MULTIPLY STATEMENT 

HQUE_.i222*22 10 C.5L2i. _ 

MOVE 1 TO cio; 

MOVE 10 TO C20, C30 

MOVE 5,25 TO £42 i _..._ 



7.9.9 



TO SECT-TITLE. 



C080LTST 
COBULTST 

coaoLT.-Si. 

COBULTST 

COBOLTST 

COBALT -ST 

COBULTST 

COBULTST 

COBULTST 

COBOLTST 

COBULTST 

COBOLTST 

COBULTST 

COBULTST 

C.QBUL-TSI 

COBOLTST 

COBOLTST 

COBULTST 

COBOLTST 

COBOLTST 

COBULTST.. 

COBULTST 

COBOLTST 

COBULTST 

COBOLTST 

COBULTST 
COBULTST 
COBOLTST 
COBULTST 

COBULTST 

COBULTST 
C0BCLTS1 

.COBULTST 

COBOLTST 
COBULTST 

COBULTST. 

COBULTST 
COBULTST 
CaBC-LZSI. .. 
COBULTST 
COBOLTST 

co.au USX 

COBOLTST 
COBULTST 

COBOLTST 
COBOLTST 
COBULXSX. . 
COBOLTST 
COBULTST 

.CCBaUST— 

COBOLTST 

COBOLTST 

. COBOLTST..... 
COBOLTST 
COBULTST 

_CJ1B.BU-SI__ 

COBOLTST 
COBOLTST 
-COBULTST— 



# • 



HI 
3.1 



■ti 1 

44 

4 5 

4t 



|sil 

N~ 

54 

55 " 
56 
1>7 



019550 
019560 
019570 
019580 
019590 
019600 
019610 
019620 
.01.9610 
019640 

019650 
049660 

019670 
019680 
019690 
019700 
019710 
019720 
019730 
019740 
019750 
019760 
019770 
0-19780 
019790 

01*800 
019810 

019820 
019830 
01984.0 
019850 
019860 
019870 
019880 
019890 
019900 
019910 
019920 

019930 
019940 
019950 
019960 
019970 
0199R0 
019990 
020000 
020010 
02PQ20 
020030 
020040 
02Pfl50 
020060 
020070 
.020080 
020090 
020100 

.02.0.110 
020120 
020130 

O2O140- 



WULTIPLY C20 6Y C3u; 

MOVE C30 TO KSTN Cl)> 

MOVE ICC .TO ANSiM Cll* 

MULTIPLY C30 BY C30 GIVING 



RSTN (2) 



MOVE 1.009.0. T 

MULTIPLY 0,00000 

MOVE 0.0001 
MULTIPLY ..fUQ.GflQQ 

MOVE 1 TO AN 
MULTIPLY C52 BY 

MOVE 664.6-6 
MULTIPLY C52 BY 

MOVE -444.44 
MULTIPLY .AN&N (6 

MOVE 030 TO 

MOVE 888 TO 
MULTIPLY .A4VS.N...C6 

MOVE 030 TO 

MOVE 889 TO 
MULTIPLY 22.2224 

MOVE 042 TO 

MOVE 44.44 T 
MULTIPLY 22.2225 

MOVE C42 TO 
MOVE 44.45 T 
MULTIPLY AN5.N. C2 
MOVE "SZ E«l" 
MOVE 1000000 
MULTIPLY C42 BY. 
TO RSTA (2), 
MOVE M S2 ER2 
MOVE JL..IO AN 3. 
MOVE CIO TO 



AN5N C 

001 BY A 
TO ANSN 

QOjttQJL.-B.Y 
SN C4), 

-3 tilVjN 
TO. ANSN 

2 GIVING 
TO ANSN 

.). Ut -.2... 
RSTN C7) 
ANSN (7 
X BY -2 . 
RSTN (8) 



V, 

Ni>N C2) GIVING KSTN (i)* 

(3). 

IO.O.QQOOJJ.000 GIVING. ...R.ST.N U)j 



G RSTN (5); 
til, 

RSTN (6)> 

(6), 
GIVING- UiO; 

; 

). 

GIVING DJQ RO.U.i\Q.£DX 

i 



MULTIPLY 
MOVE 
MOVE 

MULTIPLY 

MOVE 



RSTN (1 

PEZ.-L . T. 
•«- 

RSTN (1 

"SZ ER3" 



MOVE PEFPS T 

MOVE " 

MULTIPLY 22.222 

MOVE "SZ ER4" 

MOVE PEDB TO 

MOVE ? 14 

MOVE 3 TO AUNJ 
MOVE 7 TO CVA; 

MOVE 12. TO C Mi. 
PERFORM VERIFY, 



ANSN 
5 BY 
RSTN 
Q ANSN C 

BY 2 GI 
RSTN CIO 
AIM SN C 
) BY C30 
TO RSTA 

T(] ANSN 
2 02 GI VI 

" TO ANS 
N..C12)... 
RSTN (12 
2) BY -4 

Q. RSTA ( 

4,00" TO 
2) BY -5 
TO RSU. 
RSTA ( 
5.00" TO 

5 0./. 2 G 

TO RSTA 

RSTA (7 
A, A3 .-"-. 



(8). 

2 GIVING 042 ROUNDEL* 
(9)i 
9). 

VING 042 rounded; 

)i 

10). 

GIVING RSTN 111) ON SUE ERROR 
CI). 

cm. 

NG CIO SIZE ERROR MOVE "SZ ER2" 
A (2j; 

j; 

GIVING PEZ-L RQgNDEO^ 
3?* 

ansa (3). 

giving pefps rqonoeu on size error 

C41, , . 

5); 

ANSA C5). 

IVING PE08 KUUNJtO SIZE. E.RRUR 

CO). 

J > 

TO ANSA UU 



PO 3 2 .. SECTION* _ _.___.._ r _... . 

0321. MOVE "PC32" TO SECT-NQ; 

MOVE "DIVIDE STATEMENT 7.9,10 " TO SECT-TITLE. 

-MflVX. 1- IM-X-lQi _ 

MOVE 10 TO C20; 
MOVE 20 TO 020; 
MOVE-. 400— TO- C3-0J. ..._.. ._ 



COBOLTST 

COBCLTST 

COBLLIS.I. 

COBOLTST 

COBOLTST 

GOJOLTST 

COBOLTST 

C0HULTS1 

COiJULIST 

COBOLTST 

COBOLTST 

... COBOL T-S..T- 
COBOLTST 
COBOLTST 

-COBOL T- ST 
COBOLTST 
COBOLTST 
OGBOLT-SI 

COBOLTST 

COBOLTST 

COBOLTST. 
COBOLTST 

COBOLTST 

COBOLTST 
COBOLTST 
COBOLTST 
COBOLTST 

COBOLTST 
COBOLTST 
COBOLTST 
COBCLTST 
COBOLTST 
COBOLTST 
COBOLTST 
COBOLTST 
COBALT ST 
COBOLTST 
COBOLTST 
...COBULTST 
COBOLTST 

COBOLTST 

COBOL LSI 

COBOLTST 
COBOLTST 
C0B-ULTS4. 
COBOLTST 
COBOLTST 
COB.QLI.S.T 
COBOLTST 
COBOLTST 
COJiQLISX 
COBOLTST 
COBOLTST 
COBJ1LXS..T. 
COBOLTST 
COBOLTST 
■ OOBQL-TSX. 
COBOLTST 
COBOLTST 
CQBULT-5X- 



• • 



Hi 
'"1. 
17 

in! 

'.'■; 



u 

V 

"•fli" 

M 

lao 

J31|" 
.3!' 



:■>'», 

■Ml 

l 4, i" 
i'ii 

,'■ ... 

4.1 
44 
45 
46 
47 
48 
49 
50 
SI 
52 
53 

54 

55 
56 

5> 



020150 
020160 
0.20 170. 
020180 
020190 
020.200 
020210 
020220 
..Q2&23Q 
020240 
020250 
020260 
020270 
020280 
Q2029-Q 
020300 
020310 
020.3.20 
020330 
020340 
02-0350.. 
020360 
020370 
020380 
020390 
020400 
020410 
020420 
020430 
020440 
020450 
020460 
020470 
020480 
020490 
02050.Q 
020510 
020520 

.0205.30 
020540 
020550 
02156 a 
020570 
020580 
Q2Q590 
020600 
020610 
020620. 
020630 
020640 
.020450 



020660 
020670 

.A2SA&SL 
02069Q 
020700 
P_2°-ZiP_ 
020720 
020730 
J__QI_fi_ 



RSTN (3)> 



(4). 



(5) 



X6j. 



(9) rounded; 



(9) 



RSTN 
CIO. 
RSTN 



MOVE 444,441 TO C?3i 
MOVE -888, P88 TO C83, 

DIVIDE CIO INTO C20i 

MOVE C20 TO RSTN (1); 
MOVE 10 TO ANSN (1). 
DIVIDE C20 INTO 020J 

MOVE 020 TU RSTN C2)i 
MOVE 2 TO ANSN (2). 

DIVIDE 02C IN.T.D...C10 . Gl .VUG 

MOVE C20 TO ANSiN (3). 
DIVIDE -1 INTO C73 GIVING RSTN 

-MOVE -444,441 ID. ANSN (4)_- 

DIVIDE -2 INTO C83 GIVING RSTN 
MOVE 444, <U4 TO ANSN (5), 

01 V IDE 02.0, USiIXI... CQ-3. .OL.Vi.-G. RST.N 

M0V6 -444.444 TO ANSN (6), 
DIVIDE 10000000000 INTO 10000000000 GIVING RSTN (7) 

MOVE Ct.0 .10 ktiSk ill, _ 

MOVE -8888,8810 TO C94, 

DIVIDE D20 INTO C94 GIVING RSTN C8)i 

MOVE ^4444 ,440 LOANiiN .C8). - 

DIVIDE -2 INTO C94 GIVING RSTN 

MOVE 4444,441 TO ANSn 
ADD ,0001 TO C94. 
032RSE. 

DIVIDE -2 INTO C94 GIVING 
MOVE- 4444,440 TO ANS* 
DIVIDE D20 INTO C83 GIVING 
"SZ ERl" TO RSTA CD. 
MOVE t.444,444 TO ANSN (Hj, 
OIvlDE C2C INTO C3o GlvlNG DlO ON 
TO RSTA (2); 

MOVE "52. ER2" TO. ANSA. £21. 

DIVIDE C20 INTO C'4 GIVING C42 ON SIZE ERROR MOVE w SZ ER3" 
TO RSTA (33; 

MOV£."SZ. ER3". TO ANSA C3.i; 

SUBTRACT 80000 FROM CM. 
MOVE ZERO TO C73. 

DIVIDE 0.2 Q. Li. TOG 9.4 G I V I i\G C 73 R.QU..NDE.U 5. Ii£_ £f_fi.QJi MO YE 

"SZ ER4" TU RSTA (4); 
MOVE C73 TO HSTN C 13 )i 

MOVE "SZ ER4." .TU MSA .. i.kU 

ADO ,0001 TO C94, 

DIVIDE D2C INTO C94 GIVING C73 

"SZ. E85" .IQ..RS.U 05ii- - 

MOVE C73 TO RSTN (14). 
MOVE "SZ ER5" TO ANSA (5); 

MOVE-..2ER0 -TO C4Q > . 

DIVIDE INTO C30 GIVING RSTN 
"SZ ER6" TO RSTA (6); 

_M0iE._5.aZ £R6". TU ANSA 16)* _...._ 

BIVIDE CIO INTO C94 GIVING RSTn (16) ROUNDED ON SIZE ERROR 
MOVE "SZ ER7" TO RSTA (7); 

MpyE..^I_£H7.."._JLQ-^NAA_.li_l i ^_:. . __. . 

DIVIDE -2 INTO C83 GIVING PEH ROUNDED* 
MOVE PEH TO RSTA (8.i 
MOV E " »*» »444,44" TO ANSA (8), 



(10) ROUNDEL); 
(11) UN SIZE ERROR MQvE 



,UE E.RRUR MOVE "SZ ER2" 



ROUNDED ON SUE ERROR MOVE 



(15) ON SIZE ERROR MOVE 



CCBOLTST 
COBULTST 
COBOL, IS I 
COBULTST 
CCBOLTST 
- COBLILTST 
COBULTST 
COBULTST 
COJLLLTSI 
COBOLTST 
COBULTST 
COBULTST 

CUBULTST 
COBULTST 

COBULTST 
COBOLTST 
COBULTST 

CUHO.LT SI. 
COBULTST 
COBOLTST 

... COBUL-TST 
COBOLTST 
COBOLTST 
COBOLTST 
CUBULTST 
COBULTST 
COBOLTST 
COBULTST 
COBULTST 

O0*ULTST-. 

COBOLTST 

COBULTST 

aOBiiL-TiT- 

COBOLTST 

COBOLTST 

COBULTST 

COBOLTST 
COBULTST 

COfiXlUll. 

COBOLTST 
COBULTST 

COBOLTST 

COBULTST 
COBULTST 
COBOLTST 

C0B0LT5T 
COBOLTST 

_..X0-0U:.5X- 
CQBOLTST 
CQBOLTST 

- CQBQLT-S.L. 



DIVIDE 1 INTO C83 GIVING PEF-S 

MQVE "SZ ER8" TO RSTA (9)i 
M OVE PF.F-S T B RSTA J 10 J.* 



ROUNDED ON SIZE ERROR 



COBULTST 
COBOLTST 
COBOL TST 
COBULTST 
COBOLTST 
COBULTST 



COBOLTST 
COBOLTST 
COBOLT ST 



# • 



«, 



Ptl 

M 

.1.1 
11 
;u 



■4i 

,1*2 
A3 

Im 

46 
46 

r ; 

l«~ 
Bo 

|si 
F"' 

53 
54 
55 
56 
6? 



020750 
020760 
020770 
020780 
020790 
020800 
020810 
020820 
.020830 
0?0840 
020850 
03-0840 
020870 
020880 
020 8 90 
020900 

020910 

020-920 

020930 
020940 
020950 
020960 
020970 
020980 
020990 
021000 
021010 
021020 
021030 
021000 
021050 
021060 
021070 
021080 
021090 

021.100 
021110 
021120 
021130 
021140 
02U50 
021160 
021170 
021180 
02U90 
021200 
021210 
Q212 20 
0212 30 
021240 
021250 
021260 
021270 
.SiZlZBD.. 
021290 
021300 



021320 

021330 
J1213AQ 



MOVE " -8d8.B9" TO ANSA (10). 
032V. 

MOVE 3 TO AUNi 

MOVE 10 to cva; 
MOVE 16 TO CVN; 
PERFORM VERIF.Y. 



section. 



P033 

0331. 

MOVE "P 
WOVE "C 

MOVE 1 
MOVE 10 
MOVE 10 
MOVE 2 
MOVE. 
COMPUTE 
COMPUTE 
COMPUTE 
MOVE 12 
MOVE 22 
COMPUTE 
DIVIDE 

MOV 
COMPUTE 

MOV 

COMPUTE 

BY 2. 

MOVE 1 

COMPUTE 

Cft.2 / 

MOVE 
COMPUTE 

/ 2." 

MflVE 

COMPUTE 

ERROR 

MOV 

COMPUTE 

MOV 

COMPUTE 

MOV 

COMPUTE 

CIO) 

MOV 

0332. 

COMPUTE 
*SZ E 



013." T.Q_..5££.I?HJQjL 

8MPUT£ STATEMENT 

Tt) cio; 

TO C20; 

TC C30; 

2.25 10 C42; 

0.125 TO C73. 
RSTN (1.) * C20 * 
RSTN (2) EQUALS C 
RSTN (3) FROM .020 

TC ANSN (1)* AN* 
TC AIMSN (3). 
RSTN (4) a- CiO / 

C2C INTO C30 QIVIN 
E 1C TO AnSn («)* 

RSTN £6) » ClO * 
E 45.75 T0 ANSN £6 

RSTN (7) * 2 " Ci 
0-.*...£.3-Q..£XEfl.NEAUlA. 
18. COO TO ANSN £7) 

RSTN (8) EQUALS C 

2 r £-9 ...* C73J 
-69. 50 TO ANSN (6 
RSTN (9) = (C30 M 
( £ - 8 * C 7 3 ) * ( - C 
-3992.50 TO ANS 
RSTN dOJ - 44444 
MOVE "SZ ...ERl'MQ.. 

E B888888.868 TO A 
RSTN (11) ROUNDED 

E 8308.968^888 TO A 

RSTN £12) RQUNQEO 

E 8888888.889 TO A 
MI.N CliJ _B.QUN_iiE.fi 

ON SUE ERROR MQVL 

1 "SZ EH2" TO ANSA 



7.9, 11" TO Sect-tITLE. 



2 / CIO + CiO; 

2Q TIMES 2 DIVIDED BY ClO PLUS C3q; 

MULT IPLIE-O BY 2 / ClO + 2; 

rt (2). 

ego; 

(i RSTN £5)> 
AnSn (5). 

2 * C42 + C/3 * 8. 7. -2 *..*.. .-2_.. - 

). 

* £-C_0) + C-42 TIMES 4) DIVIDED 

Ted a.Y 0.5 ...*. 020; 

30 MINUS C20 ** CIO * 2,5 - 4 * 

* C-C3.Q.); 

lNUS C20) ** CIO * (2,5 - 4 * C42) 

3o)); 

N £9), 

44444 * 2 / (C20 * C30) ON SIZE 

K.ST A U). 

INSN (1C). 

= ANSN (1C) + 0.00C4 / CIO 
N SN (IU. 

« ANSN (10) + 6.0005 / C1GJ 
NSN (12). 
_* __.__. * ..CiO ..* C£fl-A_C.42_/_LClQ. ___. 

"SZ E.R2" TU RSTA £_). 

(2). 



C5C HOUNDED 
R3" TO RSTA 



b ANSN 

(i). 



£12) + ON SIZE ERROR MOVE 



CUBULTST 
COBOLTST 
C0BOCT-S4 
COBULTST 
COBULTST 
CO-BXU.-TST 
COBULTST 
COBULTST 
COBULTST 
COBOLTST 
COBULTST 

-GGSOLT-ST 
COBULTST 
COBULTST 
. CUBiiLTST 
COBULTST 
COBOLTST 
C-OaOLI-iiT 
COBOLTST 
COBULTST 
C0itUt.T5.T.. 
COBULTST 

coboltst 

• cqbolt-st 

cobultst 

cobultst 

cobultst- 
cobultst 

COBOLTST 

X.QMU.LISI 

CUoULTST 

COBULTST 

CaB4LT.ST 

COBULTST 
COBOLTST 

...c_a_Lx_r... 

COBOLTST 
COBOLTST 
...CUBQ.LI.S.I... 
COBOLTST 
COBOLTST 

.._J__»i_LT_.T. 
COBULTST 

COBOLTST 

_CJiBQJ_I.___ 

COBOLTST 

COBOLTST 
.C-fl.QL.T__L. 

COBULTST 
COBULTST 

J_Q_l_i_l__I_. 



MOVE "SZ £R3" TU ANSA (3). 
. C.QM£UJX~PEkO -ROUNDED- - =-4X10 .-.=_4^Wi-7__^UL__._C4^L-*^. fr aSAafl_^ 
SUE ERROR MOVE M SZ ER4" TO HSTA (4), 

MOVE PEHU TO RSTA (5); 
.MflVE -!!_*— *A_.a^ 9 9 it. .._ IH-AN S A ..t5JU~. __, __________ 



COBOLTST 
COBOLTST 

..Cfl—OLX-JL 
CUBOLTST 
COBOLTST 

.COB.OL.T-S.T- 
COBOLTST 
COBOLTST 
COBULTST- 



• • 



i ■:, 
to 

17 
Iff 



2' 1 
- 

I" 1 '.. 



43 
M 
45 
46 

4; 

•6 
1» 
50 
SI 
52 
S3 
14 
iS 
■j« 



021350 
021360 
021370 
021380 
021390 
021400 
021410 
021420 
0214 30 
021440 
021450 
021460 
021470 
0214A0 
021490 
021500 
021510 
02.1520 
021530 
021540 
Q2 15 50 
021560 
021570 
Q21580 
021590 
021600 
021610 
021620 
021630 
021640 
021650 
021660 
021670 
021680 
021690 
021700 
021710 
021720 
0217.30 
021740 
021750 
021760 
021770 

021780 
021790 

021800 
021810 

.0218.20 
021830 
021840 
Q21B.5Q 
021860 
021870 
-0.21.880 
021890 
021900 
0219.40 
021920 
021930 
021940 



COMPUTE PE.H3 ROUNDED KKCM (C3C 
990.995 ON SIZE LUHOH MOVE 
MOVE PfHi T.D RSI A. .£7.1/... 
MOVE "SM,000,00" TG ANSA (7) 
MOVE 3 TD AUN; 
move 7 . T-CCVA; 
MOVE 14 TC CVN; 
PERFORM VERIFY. 



- C2C) / 
"bl En to" 



(CIO * C20) + 
TO RSTA (6). 



P034 
0341, 



section. 



move .".P. 
MOVE M S 
MOVE 1 
MOVE 10 
MOVE 10 
MOVE 22 
MOVE 44 
ADD ClO 

RSTA 
MQV 
MU[.TlPu 

TO RS 

MOVE 2 
SUBTRAC 

MOV 
ELSE 
MOV 
DIVIDE 
MQV 
ELSE 
MOVE "E 
MOVE " 
ADD Cl 
MOV 
ELSE 

IF 
ELSE 
ADD 
DIVIDE 
MOV 
. ELSl 
MOV 
ELSE 

M.oy 

ADD ClO 
MOV 
ELAE. 
ELSE 

ELSE 

MQV 

MOV 
SUBTRAC 

MJLV. 

ELSE 



034" TO SECT-NO./ 

IZE ERRQK CLAUSE /-9-12" TO SECT-TITLE, 

to cio; dio; 

....TC C20; . D20; 

TO C30; 030; 

22.222 TO C73; 

4444,4444 TO C1Q4. 

' DlO GIVING RSTN CD ON SIZE LRKOK MOVE f, ERl M TO 

(1). 

t 2 TG ANSN CD. 

Y C104 by 5 GIVING hSTn ( <L ) SUE ERROR MOVE "ER2" 

TA (2). 

222222,222 TO ANSiv (2). 

T C73 FROM C104 GIVING RSTN (3) ON SUE ERROR 

E W £R3" Trj RSTA (3) 

E 442222.2224 TO A^SN (33. 

IMO RSTN (4) UN SUE ERROR 

E "ER4" TO RSTA C4.J 

8H" TO ANSA (4), 

ER'4" TQ ANSA (4), 

04* C73 GiViNo RSTN (5) ON SiZE ERRUR 
E "ER3" T8 RSTA (S) 

CIO * C20 MOVE 446666.6664 TU AnSN C5) 



C 3.0 TQ C 5 S I Z E. E. H R . Q R . M g y E ,", NO". T fl_. A N S A (.5 ) , 

2 into cio4 g i v i in ti rstn (6) sue error 

E "ERo" TO RSTA (6) 

ADD CIO TQ_C30 ON SUE ERRUR _ 

E M ER7" ffl I RSTA (7) 



E 22.2222.2.2 22...LQ ANSN l_6 ) __ 

4 To C50 ON SUE ERROR 

E 99999 TO C50 MOVE C50 TO RSlN (/) 

If ..XI 9 =.X.20 ..MflV£_.r CIL. Eai." J fl._RSlA_ LB_1 



IF C104 > ClO MOVE "CTL ERl M TD RSTA (9) 

E_1C IL_ £.8 3 '! -T.Q -RS TA_.C1Q J , .,_. 

E 99999 TO ANSN (/). 

T C FROM Cl04 GIVING C5q SUE ERROR 

E ?.S2_ERa5_ia_RSXA__X-Ul.— aD-J.£L_3iUji 

MiVE M CTL ER4" TO RSTA (11), 



34L3, 



.ADD._.C.l.Q....lQ..£.yLi. 



COBUlTST 

coboltst 
cobultst 
coboltst 
cqboltst 

CO&OLTST 
COBOLTST 
COBOLTST 
COHULTSI 
COBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
COBOLTST 
COBULTST 
COBULTST 
COBOLTST 
COBOLIST 
COBOLTST 
COBULTST 
COBOL 1ST 
COBOLTST 
COBULTST 
COBULTST 
COBOLTST 
COBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
. COBULTST 
COBULTST 
COBOLTST 
CQBLILTSI 
COBOLTST 
COBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
COBiiL-ISI- 
COBOLTST 
COBOLTST 
. CMULIST 
COBULTST 
COBULTST 
CO BOLTS T 
COBOLTST 
COBOLTST 
CQBULIST 

CObOLTST 
COBOLTST 

_CAML1SI_ 
COBULTST 
COBOLTST 

-COSOLX&t- 
COBOLTST 
COBULTST 

...xaauLxsi 

COBOLTST 

COBULTST 

-C QBQLT SJ, 



3 

4 

M 

6 

7 

H 

9 
10 

"< 

12 
13 

14 < 
15 
16 

iH 

18 
19 
20 ( 

?1 
22 

IT 

1 24 

n 

— i 

28 
29 ( 

30 

31 

32 ( 

33 

34 

35 < 

36 

37 

38 ( 

39 

40 

4,< 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 I 

54 

55 

56 I 

57, 



• 

« 



?.n 

SI) 

31 

JJ 



M 

'V 

(43 
l M 
46 
46 
.47 



c 

64 

56 



021950 

021960 

0219 70 

021980 

021990 

022000 

022010 

022020 

02 2.0 30. 

0220/10 

022050 

Q.220..60 

022070 

022080 

022090 

022100 

022110 

02 2 12.0 

022130 

022140 

022150 

022160 

022170 

022180 

022190 

022200 

022210 

022220 

022230 

022240 

022250 

022260 

2.2270. 

022280 

022290 

0.22100 

022310 

022320 

022330 

022340 

022350 

0.2.2 .3.6.0. 

022370 

022380 

JJZ1140- 
022400 
022410 
0.22.420 
022430 
022440 

.,0224.5-0- 
022460 
022470 
.02!Aafl_ 



MOVE CIO TO RSTN (9); 

MOVE 101 TO ANSN (9), 

GO TO 34L4-, 

34L2. 

MOVE "SZ ER8" 70 ANSA (12.) 

GO 10 34.L3. 

34L4, 

ADO C30 TO CiO UN SI /t EHhUR 

MOVE C-10.T0._RS_IR.UQ J . 

ELSE MOVE "CTL ER5" 10 Hbl A (13). 
MOVE 101 TC ANSN dQ). 

MOVE 3-10 aun.; 

MOVE 10 TO CVn; 
MOVE 13 tc cva; 
PERFORM VERIFY. 



P035 SECTION,. 
0351. 

MOVE 



MOVE 

MOVE 

MOVE 

ALTER. 

ALTER 



ALTER 

ALTER 



"P035" TO 
"ALTER i>TA 
1 TO C30, 
ALL 9 TU 

3. 5 LI. 

35L2 

39L3 

3 51. 4. 

35LIA 



.IP.. 

TO 

OF 

TO 

OF 



XL. 



XL1 



U0L1 OF P 
_UflL2 OF 035 

GO TO i5|_ 
ALTER 35L3A TO 
GO 10 35L3A U-F. 



SECT 

IE ME 
CIO. 
C42. 
RO.CE 
ROCE 
035 

R.DOE. 

0352 

035 

2.10 

1. 

PROC 

0152 



-iN0, 
NT 



TQ SECT-TITLE, 



E.O TO. .3.5AL._.__ 

ED TO 35AL1A* 

TO PROCEED TO 35AL.1B OF 0353* 

.ul.LG 35AL2,, , 

TO PHUCEED TO 35AL3A QF 0352. 
TO PROCEED TO UQL2 QF 0352 
..PR.QCttD TO UUL3 OF Q3-.3./ 

EED TU 33ALiJ, 



ALTER DQ3 TO PROCEED TO AQ3. 

AQ3. 

MOVE C30 TO HSTN <C30> Gu TU 35TTHHU. 
35L1. GO TO 35EF1. 

.35.EF.1_ MO.V..E..JL JO 

35AL1, MOVE C30 TO 

GO TO 35L2t 
Afll«l ilJQVC CIO . .1.0. 

ALTES DQ2 TO PR 
35L2, GO TO 35EF2. 

3.5EI2, MOVE -2 1. 

35AL2. MOVE CSC TO 

ALTER 35L1 TO P 
ASJU-AQ-ISL*. 



.R.S.XN.._lJl3..ul* _ _.. 

RSTN CC30); ADD ClO TO C30, 

R.S.IM.. CCJO.U -A00-- CIO. IU C30J. 

QCEEO TO AQ2; GO TO 002. 

Q-..a3_IJN..-XOi.0_l. J » - - - 

RSTN (C30>* ADD ClO TO C30. 
RQCEEO TO 35AL3; GO TO 35i_l- 



022490 
022500 



022520 

022530 

J12.t__..4.Q_ 



35L3. GO TO 35EF3. 
35EF3, MOVE 3 T 

35..AL-U. _MO_V_E.-0-3-0 .10.... 

GO TO 35L1A. 
35AL1. MOVE C30 TO 
__ AL1EB 15_L3A__0£ 



RSTN (CiO), 

RSIN_-X-C3J1JJ ..AO0..-C4O 1 C 3 Q JL 



COBULTST 

CQBQLTST 

G-Q-tt-UL-T S-T- 

COBGLTST 

COBQLTST 

C0BX1L-I.S-T. 

COBOLTST 

COBQLTST 

..CO-dXlLIS-I. 
COBQLTST 
COBOLTST 
COflOJLIiSI 
COBQLTST 
COBQLTST 
CQ.BJ_-LT.SI 
COBOLTST 
COBOLTST 
CQaQLJ-S4 
COOOLTST 
COBQLTST 

■ ■C-06-Ui-TST 
COBOLTST 
C08ULTST 
COBLILT-S-T 
COBOLTST 
COBOLTST 
COtiflLTST" 
COBQLTST 
COBQLTST 

.C_QBOL_IS.T. 
COBOLTST 

COBOLTST 

.ooja.QL.is.i_ 

COBULTST 
COBQLTST 
CO-LQJ-T-S.J.. 
CQBULTST 
C03QLTST 

.XiaBilL.TAI. 
COBQLTST 
COBOLTST 

..OO-.ILL.T.SI.. 
COBQLTST 
COBOLTST 

..0Qi3-QkIS-X. 
COBOLTST 
CQBQLTST 

-C-OaOL-Iiia.-. 
COBQLTST 
COBQLTST 
COBOLTST 



COBOLTST 

COBOLTST 

-CJJBQLXSJ.- 



CQBQLTST 
CQBQLTST 
COBQLTST 



RSTN (C30)J ADD ClO TO C30; 

03 .5,2- J-Q— EJ-J-IC EED JO.... 3 . L « L-QI.J13ZZL 



COBOLTST 
COBQLTST 

CQB_.LT.-iX. 



li 



# • 





02*550 


GO TO XL. 




02*560 


35AL6, MOVE C3C TO 




022570 


ALTER DG11 TO P 




022580 


35L4. GO TO 35EF4 




022590 


35EF4, MQVE 4 




02 2. 6.00. 


UQL1. GO TO 35EF6 




022610 


35EF6, MOVE 88 




022620 


0352 SECTION. 




_ 02.26.30 


DQ3.t GO TO, ... 




022640 


35L1A, GO TO 35EF5 




022650 


35EF5. MOVE 5 T 




022660 


35AL3A. MOVE C30 




022670 


GO TO UtLl OF 




i 022680 


35ALU, MOVE C30 




i... 0.2269.0. 


60 TO 35.L3 OF 




022700 


35L2A, GO TO 15E 




022710 


35EF15, MOVE 15 




1 '1._ _ 0.22720 


UQL2. GO. TO. 35eF7. 




022730 


35EF7, MOVE 7 




022740 


35L3A, GO TO 35E 




'■',_- 02*750 


35EF10, MOVE 10 




""! 022760 


35L4A. GO TO 35E 




1 022770 


35EF11, MOVE 11 




*'!___ 022780 


35AL4A. MOVE C3U 




02*790 


GO TO 35L1A. 




022800 


DQ2. GO TO. 




02*810 


0353 SECTION. 




022820 


35AL1B. MOVE C30 




02*830 


GO TO 35L4 




",- - 02*840 


35L18. GO TO, 




" 02*850 


35EF9, MOVE 9 




1 02*860 


AQ2. MOVE C3C Tq 




,n| 0.22870 


GO TO. XL1. 




"! 022880 


UQL3. MOVE C3C To 




J 1 022890 


ALTER 35L1B TQ 




''.....' Q2290.Q. 


35 L 4 OF. . 




22910 


35L1A OF 




022920 


GO TO 35L1B. 




"-. 0229.30- 


35l3.B. GQ TO 3.5.LF 




022940 


35EF14, MOVE 14 




02*950 


35AL4B, MOVE C30 T 




■'"- 022960 


00. TO 35L4 




w 02*970 


35AL5. MOVE C3" 




022980 


ALTER 35L4B TO 




4 ''_ - 02299.0 


ALTER .35.L3H.-UF 




023000 


35L2A UF 




M 023010 


GO TO 35L4B. 




*_._ . -023Q.20 


35EF16. MOVE 16 




•* 023030 


35L4B. GO TO 35EF 




023040 


35EF13. MOVE 13 




48 -. 023050 


35l£F12, - MQMZ- 12 




w 023060 


0Q1. GO TO 35EF16, 




023070 


35TTHRU. 




" _ _ _.Q23_Q8„Q 


MOVE 15 TO. C.VN 




52 023090 


perform 35load 




» 023100 


MOVE 1 TO AUN, 




,4 _ ......0.2 3.110 


PERFORM _Y£RJFY 




023120 


GO TS 35EXT. 




5 * 023J30 


35L0A0. MOVE C20 




S. _ fljgJlAQ 


35EXT, EXIT*. 









RSTis. CC30)> ADD CIO TO C3QJ 

ROCEEU TU AUU . GO TO .UU.,1... . . 

TO RSTN CC30). 
TO RSTN CC30). 



RSTN (C JuJ . 

TO RSTN C.C30); AOD CIO Tu C30i 
P035. 

TO R3I"n IC3U); AOD CIO TO C30; 
P0 35. 
F15. 
TO RSTN CCJO), 

TO RSTN CCJU). 
F10. 

TO ...RSTN . .C.C4.0 3. 

Fll, 

TO RSTN CC30), 
TO RSTN .(C.30).;. AOD C 1.0 TO C30J 



TO RSTN (C30); ADD C 1 TO C3q; 
F P0 33, 

TO RSTN CCJO) . 
RSTn CC30;; ADD CIO TQ C30; 



RSTn CC30)i ADD ClO TQ C30j 
PRQCEEO TO 35AL4B, 

P.0.35 TQ 3.5AU4A OF 352/ 

0352 TO PROCEED T(J 35AL4 OF PQ35; 

1.4. , ... , ., 

TO RSTN CC-iO), 
RSTN CC3U); ADO ClO TO C30; 

OF P035. . . 

TO RSTN (CjU); ADO ClO TO C30; 

PROCEED TU 35L3B; 
-JQ.3.53 T.U...fi<.UC£LQ TO.. 35UA--QF J3.35.Z 

0352 TO PROCEED TO 35AL6* 

T.Q.RSTN- CCiQl. _ 

13. 
TO RSTN CC3o) GO TO 35TThRU. 
TQ HiIN_Xui£U -GO- T-Q_35IXH£lu 



VARYING C20 FROM 1 BY 1 UNTIL C20 > CVN, 



TO ANSN (C20) , 



CUBULTST 

COBOLTST 

COBQlTST. 

COBOLTST 

COBOLTST 

COBOLTST 

COBOLTST 

COBLLTST 

COBOLTST 

COBULTST 

COBOLTST 

COBOLTST 

COBLLTST 

COBOLTST 

CUBLLTST 

COBOLTST 

COBULTST 

COBOLTST 

COBULTST 

COBULTST 

CUBOLTS J 

COBULTST 

COBULTST 

C0BX1LTST 

COBOUTST 

COBULTST 
COBLLT.ST 
COBOLTST 
COBULTST 

COBOLTST 
COBOLTST 
COBOLTST 
CUBULTSX 
COBOLTST 

COBULTST 
COBULTST 

COBULTST 

COBOLTST 

CaaUL-TST 

COBOLTST 

COBULTST 

CaBQ.LI.SI.. 

COBULTST 

COBULTST 

_CaJUQLl&I 

COBOLTST 
COBOLTST 

..C0_B0.LIS.T__ 
COBOLTST 
COBULTST 

-CXLaULIAX-.. 
COBOLTST 
COBOLTST 
CQBQL1M 
COBOLTST 
COBULTST 
COBO LTST 
COBOLTST 
COBOLTST 

... CJLBJLL T.SL,. 



13 



1 I 

•J- 

;■!■) 



;is 
*ij 
i 

Al, 
(.13 " 
44 
45 
46 

443 

- 

4.41 
60 

|s.l 

53 

54 

■5 



^1 



023150 
023160 
.02.3170 
023180 
023190 
023200 
023210 
023220 

.0212.30 
023240 
023250 

.021260 
023270 
023280 
0.232.90 
023300 
023310 
02.3320 
023330 
023340 

.0.23350 
023360 
023370 
023380 
023390 
023400 
02.34 10 
02 3420 
023430 
023440 
023450 
023460 
Q 2.1.470 
023480 
023490 

.023500.. 

023510 

023520 

Q 2 35 30 

023540 

023550 

Q 23560 

023570 

023580 

021590 

023600 

023610 

023620.. 

023630 

023640 

0.21650 

023660 

023670 
.0_23AAQ_ 



'.10,3* TG SE.C1-TITL.E. 



ADD 1 TG C20t 



P036 SECTION, 
0361, 

MOVE "P036" TO SECT-NU; 
MOVE "PERFORM STATEMENT 

HEREORM.-. PF H.P.AR..; 

PERFORM PF-SECT. 

PERFORM 36L35 THRU 36L36/ 

P E.HEORM 36L3 7 THRU. 16.L3 ft.. . 

PERFORM PF-SET1 THRU PF-5tT3 
PERFORM 36143 THRU PF"SETb. 

GO. IQ 3.61L. 

MOVE 99 TO RSTN (20), 

3651 SECTION, 
36. GQ. T0_36.P1, 
36P4, MOVE C.2C TU RSTim U20)J 
36Pl. MOVE 14 TO C20 MOVE C2U 

PERFORM 3 6P2. 

GO TO 36P3, 

MOVE 999 TO RSTN CC2Q). 
36P3. PERFORM 36P1A OF 36S2J 

PERFORM 36S2. 

MOVE C20 TO RSTN CC20); 

PERFORM 36S2 THRU 35S3, . 

PERFORM 36PV GO TO 36EXT, 

MOVE 9999 TO RSTN (C20)J GO TO 3&PV, 
36P2., MOVE C20 TO-KSTn CC2.0.> ADD 1 TO C20, 

3652 SECTION. 

36P1A. MOVE C2C Tq RSTn (C20j; ADD 1 To C20; 

...MOVE C2C TQ Ri.W U2.0J. 

3653 SECTION, 

36P1B. MOVE C20 TO RSTN (C20)*' ADD 1 TO C2q, 

EERFQRM 36E4 QF 3.6SU - 

MOVE I TQ AUN» MOVt 22 TU CVN. 
36S3EXT SECTION. 
PF ..- PAR. MOVE. 1 T Q .filTN i UX-...M U VE . ALL 9 1.tl C 42x C 12*..X.7 JL,. 



ADD 1 To C20. 
TO RSTfv (C^O); 



ADD 1 TO C2o. 
ADD 1 TO CZO. 



TO RSTN CI) 



M.U.y.E 3 TQ RSTN. 131 



C5); muve aNi to am; 



023690 
023700 
0217X0- 
023720 
023730 
SL2MAQ. 



PF-SEP. MOVE C42 

PF-SECT SECTION. 

36 L 3 1 m M.Q..V.E . 2 . . I Q R S T N . C 21* 

36L32, MOVE 4 TQ RSTn (<♦). 

36L33. EXIT. 

P.F-SET.1 _1.EOII.ON., _.. 

36L34. GO TO PF-SET3. 
36L35. MOVE 5 TO RSTN 

... .AQO...Q 10X111* _ _ _. 

36136. MOVE 6 TO RSTN (6). 
36L37. MOVE 7 TO RSTN CO. 

PF-5ET 2. .SXOUQlu. _ _ _ 

361.38, ADD TO C115I MOVE 
MOVE 8 TO RSTN (8). 

-16.L39, .M0i£_O52-Ia RSlUXfi-l* 

PF-SET3 SECTION, 

36.U4Q t MOVE 9 TU RSTN C9) fall TO J6l«1 

. _ MOVXX7X _tC- .&S1-U- C9-U 

36141, MOVE 10 TU RSTN UO). 

PF»SET4 SECTION. 

36LJ1, M0JLt_£2flL_LQ_O2Ja J 



ANI TO ANI 



COBULTST 
COBULTST 

COBOLIS4— 

COBOLTST 
COBCLTST 

.._. COBOL! II 
COBULTST 
COBULTST 

-.-COtUJLT-S-T- 

COBOLTST 
COBOLTST 

-XOBOLXSL. 
COBULTST 
COBOLTST 

O0-&OLTS-I 

COBOLTST 
COBOLTST 

COBOL TST... 

COBULTST 
COBOLTST 

CU0U4.TS-I. ... 

COBOLTST 
COBOLTST 
COBOLT-ST 
COBOLTST 
COBULTST 
CQBQ.LTST 

CUBULTST 
COBOLTST 
OXia.QLlST. . 
COBULTST 
COBULTST 

.xoaaLTST 

COBOLTST 
COBULTST 

Cm*OLT~S-T- 

COBULTST 
COBCLTST 

... COBOLT-ST 

COBOLTST 
COBULTST 

...COBOLTST. 

COBULTST 
COBULTST 

— COBULTJJ 

COBOLTST 
COBOLTST 

_X0iiflL.tS-l 

COBULTST 
COBULTST 

_ C0JiU.kI.5J_ ... 



COBOLTST 
COBOLTST 
CQflqLTST 
COBOLTST 
COBOLTST 
XOa.Ul.TSI- 



COBOLTST 

COBOLTST 

XOBULTST, 



n 

H, 
1V 

in 

Mi' 



in 



M 
<!j 

Wj 

</ 
«l 
is 

jO 
51 
12 
33 
14 
'A 
it. 



023750 
023760 
023770 
023780 
023790 
023800 
023810 
023820 
023.8 30 
023840 
023850 
023860 
023870 
023880 
02 3890 
023900 
023910 
02 3920 
023930 
023940 
023950 
023960 
023970 
02J980 
023990 
024000 
02«010 
024020 

02^030 
02404 
024050 
024060 
024070 
024080 
024090 
024100 
024H0 
02«120 
Q2*1JQ. 
024140 
024150 

.02*16.0 
Q2M70 
02*180 
024190 
024200 
02*210 

Q2*22Q. 
02*230 

02 42^0 
Q.2i25Q 
02*260 
02*270 
02*2.80. 

02*290 
02*300 
,Q2*J_1_0 
024320 
02*330 
.3.2*340 



36LC10 



MOVE C20 TO 
ADD 1 TO C20. 



ANSN (<*dQ) 



36L43. MOVE: U 
36L44. EXIT, 
PF-SET5 SECTION, 
3.6US, MOVE 12. TO 
36L46. MOVE 13 TO 
36147. EXIT. 
36LAST SECTION, 
36PV, MOVE 1 TO 



TU RSTN (11) 



ftSTN 
RSTN 



Ce20 



(12), 
C 133 . 



PERFORM 36L00 UNTIL C«20 IS GREATER THAN CVN, 
PERFORM Vt.fi if.¥. 
36EXT. EXIT, 



P0 37 SECTION, 

37, MOVE "P037" TO SECT"NU; 

MOVE "PERFORM OPTIONS" TU 



SECT-TITLE 



MOVE 1050 
MOVE 1 TO 

PERFORM 37 
PERFORM 37 
ADO 3 TO C 
ADD 2 TO C 
ADD 4 TO C 
MOVE. CIO T 
MOVE CIO T 
MOVE CIO T 
PERFORM 37 



TO 050; MOVE URQ TU C42» C83> 
ClO' D20> C20f C50*. C30* C?*' c73» 



dio; 



ADD 2 TO C 

perform 37 

MOVE 19 TO 
PERFORM 37 
MOVE 25 TC 
PERFORM .37 
MOVE 31 TO 
PERFORM 37 

MOVE. ...CIO T 
MOVE ClO T 

perform 37 
go tq 37wg 



PI 105 
P2 THR 
20* PE 

20; PE 
20 

C5o 
C C50* 

c C5o; 

Sl-UNT. 
20; M 

si ThR 

C2Q; 
S3 THR 

C20) 
Lit.. TH 
C20 M 
L1C TH 
C73J 
e<i 2 
S3 ThR 



TIM 
U 37P 
RFQftM 
RFQRM 

.PE1KF. 

PERF 

MOVE 

IL 10 

UVE C 
U 37S 

MOVE 
U 37S 

MOVE 
RU. 37 
OVE 1 
RU 37 

.. MOV. 

MOVE 

U 3^L 



ES. 

3 10b 
37S1 
37^1 

ORM 3 
URM 3 

13 T 
50 .< 
10 TO 
2 UNT 

1..1U 

4 10 

2 TU 
L4E 1 

TO C 
S4 UN 
E 37 

2 TU 
4£ UN 



37MV, MOVE 050 TO ANSN (C30) 
37P1. COMPUTE RSTN CC2Q) * R 

ADO CIO TQ. C5Q.» .... : .... 

37P2, COMPUTE RST N (C20 + CI 
37P3, COMPUTE RSTN CC20 ♦ 2 
A.DD_„CJL9__TJ1 C5Q^ ... -.... ... 



TIMES, 
050 TIMES, 
THRU 37S2 U50 TIMES, 

7.E1. UNTIL C5q> IOSjO. 

7P2 THhU 37P3 UNTIL C50 > 1050, 

u C20; 

csc. 

CSO; 
IL C50 + 050 - 1050 > 2100 - 050. 

duo; . 

TIMES; ADO 1 TO DiO. 

DUO; MOVE 1 TO C42. 

Q ..TIMES.* ADD .1 TO D2.Q... 

52 

TIL C52 > 10; ADD CIO TO 020, 

TO C20; M.QV.E..L..IQ C 5.2i 

0110. 
TIL C52 > 10, 

; add CIO ""TO~C30~7 

stn cc20) * cio; 



0) - RSTn (C20 + CIO) + cio, 
) * RSTN (C*0 + 2) + (ClO) 



37S1 SECTION. 

37PJA, COMPUTE RSTN 

ADO CIO TO CbO, 
37P2A, COMPUTE RSTN 



C.CJ.0 ) _?_RST_N ( C 20)...+ (_C 4 OJJ 



(C20 ♦ ClO) = RSTN (C20 + ClO) + ClO 



37S2 SECTION, 
37P1B, COMPUTE 
CQMPU.TI. 



RSTN 
KSTN 



CC20 
XC.2J3., 



2) * 

3) * 



RSTn 
RSTN 



(C20 

ccgo 



2) 
3) 



ClO, 

.cjju.. 



COBULTST 

coboltst 
cobol t.s.j 
coboltst 
coboltst 
cobultsi 

12-^2-67 

COBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
COBULTST 
COBULTST 
COBOLTST 
COBOLTST 
COBULTST 
COBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
COB-OLTST 
COBULTST 
COUOLTST 
COBULTST 
COBOLTST 

COBULTST 
COBULTST 
COBULTST 
COBULTST 
C-OBLLT-ST 
COBULTST 
COBOLTST 
COBULTST 
COBULTST 

COBULTST 
CO BOLT ST 
COBOLTST 
COBULTST 
CJQ,.BflLTST 
COBOLTST 
COBOLTST 
CQBUJJST 
COBULTST 
COBULTST 
CflBQLJSI 
COBULTST 

COBULTST 
XOJfiklSI.. 
COBOLTST 
COBOLTST 
. COBOL! ST_ 

COBOLTST 
COBOLTST 

CMUkTSI. 
COBULTST 
COBOLTST 
COBOLTST 



1 

iCJ 

111 



H 

'491 

p° 

b 

63 

■S5| 

H 

11 



024350 
024360 
024370 
02^380 
024390 
024400 
024410 
024420 
024.430 
024440 
024450 

0-24460 
024470 
024480 
...0 2 4490- 
024500 
024510 
024520 
024530 
024540 
024550 
024560 
024570 

024580 
024590 

02^600 
02461O 

024620 
024630 
024640 
024650 
024660 
024670 
024680 
024690 
024700 

024710 
024720 
0.2 4 .7 30 
024740 
024750 
024760 
024770 
024780 
02**790 
024800 
024810 
.024820 
024830 
02«840 
.0.2.485.0. 
024860 
024870 
024880 
024890 

024900 

.0_2 4.9 IX) 

024920 

024930 

.02^94.0- 



NsiN.. (C20) .+.. cio; 



ON CHO 



37S3 SECTION. 

37L1C. COMPUTE H.STN X£_.Ol 

ADD CIO TC C52. 
37l^C, GO TO 37L2C* 37^30 ULPENOlNG 

37L5C. .MJD-VE--«£Rr' ..TO RST-A (5-3... 

37L2C, PERFORM 37 L 4C 10 TIME^; GU TO IfLbC, 

37L4C, COMPUTE RSTN CC^O + C 10) * RSTN (C20 + C 10) + CIO, 

37L6.C. -EXIT.- 

37S5 section. 

37L7D, IF C42 = MOVE "FROM U " TO RSTA (DlO) GO TO 37L30 
ELSE IF 042 = 1 MOVE -. "-FROM L 3'? TU RSTA ~C_4-34J 

MOVE ZERO TO C42; GO TO 37l9U ELSE MOVE '"ER2" 

TO RSTA (6); GO TU 3/L9D. 
37L30. PERFORM.. 37tdO .UNI-U, UJ- > lQ-i .MQVE Glfl 10-073 

IF C42 = 1 MOVE ClO TO DUQ GO TO 37L7C. GO TO 37L9D. 
37L8D. COMPUTE RSTN CC2Q + t) « RSTN CC20 + 2) + ClO; 

ADD ClO TO C?3. _.. 

37L9D, EXIT. 



37S.4 SECTION. 

37L1E. COMPUTE RSTN (C20 + 3) s RSTN (c_0 + 3) 



PERFORM 37L.2L UNTIL C30 > \0i MOVE CIO TO C30; 

GO TO 37L3E. 
37L.2E. COMPUTE RSTfv (C20 + 4) 

ADD CIO TO C30. 
37l3£, IF C83. 5 *ERU ADO ClO. I 
37L5E. MOVE "ER3" TO RSTA C7; 
37L4E. EXIT. 



♦ CIO. 



= RST,\ CC2C 
U R S TN (C_Q 



A ) 



+ 51, 



+ C1Q> 
GO TO j7i.4Et 



37MV 18 TIMES. 



37wu Section. 

37L1F. MOVE ClC TO C30; PERFORM 

MOVE 19 TO C.30 MJVE.l ID. _<_.._. 

PERFORM 37i.2f UNTIL 020 EXCEEDS 4 i GO TO 
37L2F, MOVE 10 TO A NSN (C30)» ANSN (C30 + 3)* 

MOVE. 100 TC ANSN (C.30. + CIO ?# ANSN CC30 + 

ADD 6 TO C30i ADD ClO TO DgO. 
37|_3F. MOVE 3 TU AUNi MUVE 7 Tq cVa; MOVE 42 TO CV\; 

MOVE "FROM LI" TQ ANSA til, ANSA C.2U...PE.RFQ9M VERIFY 

37EXT. 



37 L 3F. 

ANSN (C30 ♦ 5); 

2)> ANSN .CC30. + 



4) 



P038 SECTION. __ 

38P1. MOVE "P038" TO SECT-NO. 

MOVE "ITERATION LIST" TO SECTMITLEJ 

MQV£..l TO .C.lQ. O-lQi M QVX M Z.Y XH.V. ?__ ID Ail,. _ 

MOVE "ABCDEFGH" TO An8» AN_; MOVE ALL b TO C73, 

MOVE ClO TO 020 MOVE 10 TO 050. 
PERFORM. -18. U V..AHY.1 nG C__0 J ROW ..ClU_aL._C.lfl_JJNLlL--C3JL 

PERFORM 38L2 THRU 38L3 VARYING C30 FROM DlO BY ClO 
UNTIL C30 > CIO/2), 
PERFORM .185.1. VARY LNG._C_30J" RQMJClQ &Y Q\Q _ ____ 

UNTIL C30 > CIO * 2 + CIO 

AFTER C2Q FRUM CIO BY ClO UNTIL C20 > 3. 

PERF-.DRM 3.8S2 -mHD-.^a.s..^ 

UNTIL C3C » 
AFTER C20 FROM 3 BY "010 UNTIL ZERO EQUALS C20, 
— ~tE-RX0RW-.-a8tA-.-_ 



JU- 



C0BUL1ST 

COBULTST 

..CQflfl.LT.ST. 

coboltst 
cobultst 
cgbolist 
cobultst 
coboltst 
cgb4jlts-t 
coboltst 
coboltst 

corcltst 
cobultst 

cobultst 
coboltst 
coboltst 
coboltst 

COBflLT-S-T 
COBULTST 
CCbULTST 
COBO-LTS-T 
COBOLTST 

COBOLTST 
COB-OL-TST 
COBOLTST 
COBULTST 
COBULTST. 
COBOLTST 
COBOLTST 
COBOJ-TST 
COBOLTST 
COBULTST 
COBULTST 
COBOLTST 
COBOLTST 
COBOL T5T 
COBOLTST 
COBULTST 
J_fl_-JQLI_SJ 
COBOLTST 
COBOLTST 

CflB.UL.IiI... 

COBOLTST 
COBULTST 

.CflflflLXSJ.. 
COBOLTST 
COBOLTST 

.C.ai.fl.LT_S-T 
COBULTST 
COBOLTST 

-Cflfl.flLl_S.I_- 
COBOLTST 
COBOLTST 

..._J_J_i_J_I__l_ 
COBOLTST 

COBOLTST 
-COBULTSl- 



COBOLTST 

COBOLTST 

_t_3j_5-B7_a-- 



-\i 



IP 



• • 



I J 

1 4 

I '.i 

n\ 

Vi 






M 
■U> 
Mj 
M 

«> 
'1:7 
>0 
51 

>3 

if. 
56 
?> 



024950 
024960 
024970 
024980 
02^990 
025000 
025010 
0250?0 
025030 
025040 

025050 
025060 
02.5070 
025080 

025 .ago 
025100 
025H0 
025120 
025130 
025140 
.02.5130 
025160 
025170 
025180 
02&190 
025200 
0.25210 
025220 
025230 
Q 25240 
02^250 
025260 
0.25.270 
025280 
025290 
025300 
025310 
025320 
0.25 3 3O 
025340 
025350 
025360 
025370 
025380 
0253.90 
025400 
025410 
..02.5420 
025424 
025430 

025440 
025450 
025460 
025470 
025480 
025490 
.02550JX 
025510 
025520 
025530. 



VARYING C 

UNTIL C?0 

PERFORM 3811 



BY (2 
AFTER 
UNTIL 
AFTER 

MOVE CIO 
PERFORM 



+ 2 

C30 

C30 
C20 

TO 

IBS 5 



38L1. 

IF 

381. 

38L2. 
IF 
IF 



MOVE ANF 
AN8 * ROF 
MOVE C73 
MOVE AN5 
AN5 t GCA 
CIO IS PQ 
TO 



MOVE C73 

382. EXIT, 

.3.8 L 3. MOVE D1C 
IF GN CC3C) 

383. MOVE C73 T 
38L4. MOVE. AN.8 T 

IF NLFA (C20 

384. MOVE C73 T 
38L5» MOVE C 30 

MOVE ZERO TO 

PERFORM 38L? 

UNTIL C50 

AFTER D30 

AFTER C20 

AFTER CVA . F.R 

385. EXIT. 

38si section. 

38L1A, M.0VE. AN5 
38L2A, IF 0-21 
GO TO 38 
MOVE AN5 TO 
38L3A. EXIT. 

3852 SECTION. 

38LlBi IP 0-21 
GO TO 38 
MOVE C30 TC 
38L36. EXIT. 

3853 SECTION. 
38L1C, MOVE C30 
myi C.2Q... 

3854 SECTION. 
38L1D, MOVE A5 

IF D-32 CC50 

GO TO 38L3D. 

MOVE 1234567 
3.8L2D,. 

MOVE CVA TC 
3010, IF 0-43 C 

GO TO. ISLIO* 

3820. IF 

GO TO 
JQ30,. .__!£ 
38L3D, EXIT. 

3855 SECTION. 

3 8 LIE, . . J Q1L_1.5 



dO FROM CIO * CIO BY (10 

GREATER IHAin CIO AND = 1 
U VARYING C.5.Q. FROM 4 /.. 2„ 
) / 2 - ClO UNTIL C50 > V 

FROM 100 / C C CIO ♦ CIO) 

EQUALS 

FROM 1 BY CIO UNTIL C20 
C30; PtRFOHM 38L5 3 TIME 
/ ....fiU. TJL..3.dEXT... 
TO ROF (C30)i 

CC3Q) MOVE CIO TO RSTN C 
...TO RSTN CD. 
TO UCIA (C30) 

CC30) MOVE CIO TU RSTN C 
SITIVE GO TU.J8.2. 
RSTN (2), 

TO GN CC30J' 

/ D10 MOVE CIO TO RS1N (3 
U HSTN C3). 

U .NLK.A. .(C2.Q2* 

) jt AN8 MOVE CiO TO RSTN 
U RSTN (4). 

to rstn cio.) aqd c 1.0 to c 

duo. 

THRU 3t)L3D VARYING C5G 

> CCIO + CIO * 2) 

FROM D10 BY 1 UNTIL 030 
FROM CIO + I BY -1 UNI IL 

UM 3. by CU.1.Q -.-2) UNTIL I 



/ CCIO * 10)) 
0. 

" CIO 

/ CCIO + 2) 
* 10) - 2 BY -010 

> CCIO * 3). 

5, 



1). 

*). 



). 

C4). 

30 ADO C1Q..ID. D.50 

(•ROM CIO BY D10 

> 3 

C20 s 
E.R0 s CvJU 



TQ 0-21 CC30. C20), 
CC30# C20) * AN5 MOVE ClO 
L3A. 
.0-21 CC30# C2Q), 



CC3^» C20) X AN5 MOVE ClO 

L3B. 

RSTN C 1 a ) ; MOVE C20 TO RS 



TO RSTN C5)i 

...TQ. RSTN C6.1J. 

TN C15). 



TO RSTN C7). 
1.0 RS.LN C.8 )_i 

TO D-32 CC50* C30# C20) 
' 030, . 0201 / A § MtiV.E. C.1Q TQ_.HST.N_.L9_L. 

89 1 D-42 C050# C30/ C20 ), 



D-4 3 C 

38L3D. 

-0-A3-.C. 



U110, GQ TO 3810 3820 383 
C50, 030, C20* CVA) $ 123 

C5Q, 030, C20, CVA) i 456 
C5.Q_*. .. 0.3.CU- C-2.CU ZlM~t 7-Q-9. 



DEPENDING ON DUO, 
MOVE CIO JO RSTN (050) 



CObQLTST 

10-5-70 

COBULTST 

COBQLTST 

COBOLTST 

..COBOL 1ST 
COBULTST 
COBOLTST 
COBULTST. 
COBOLTST 
COBOLTST 
CUBOLTST 
COBULTST 
COBULTST 
COBOLTST 
COBOLTST 
COBOLTST 
COBQLTST 
COBQLTST 
COBQLTST 
COBULTST 
COBOLTST 
COBQLTST 
COBOLTST 
COBOLTST 
COBQLTST 
COBULTST 
COBOLTST 
COBOLTST 
COBOL TS-T 
COBQLTST 
COBQLTST 
..CQ5.Cl.US J 
COBQLTST 
COBQLTST 
C.QBQLTST 
COBOLTST 
COBULTST 
0,0. BOLT ST 
COBQLTST 
COBOLTST 

. C01QL15.T. 
COBQLTST 
COBQLTST 

.GH.8QL..LSI.. 

COBOLTST 
COBOLTST 

COJilLIST. 

COBQLTST 
COBOLTST 

..-CO BULLS..!.- 
COBOLTST 

.COBQLTST 

-COBOLI^J. 



MOVE 456 TO RSTN C050) 
MQVX- 789 T Q, JjSTjt-(-05-Q-J. 



m..._c..y.Nj........tto_vi .ci o. ..to.. a.um. 



.COBQLTST 

COBQLTST 

^CO-B_QU-S..L 

COBOLTST 
-C_Q1Q_LJ.S1. 



m, 

M, 

[«■ 



4li| 

r", 

d" 

46 
46 

\*e 

49 

•1 



025540 
025550 
02.5560 
025570 
025580 
025590 
025600 

025610 

oas.fi 20 

025630 
025640 
025.650 
025660 
025670 
..025680.. 

025690 
025700 
. 02 S 7.1. 0. 
025712 
025720 
.0.2573.0 
0257/40 
025750 
02 57.6 Q 
025770 
025760 
0257 90 
025800 
025810 
025820 
025830 
025840 
.Q25J50 
025860 
025870 
-025850 
025890 
025900 
0.2.5.91.0 
025920 
025930 
02.5940 
025950 
025960 
.02.5970 
025980 

025990 
0_26QilQ 

026010 
026020 
.A26J13.0_ 



MOVE CIO TC ANSN (7)» ANSN (8)* ANSN 

MOVE i TO AN5N (10) PERFORM VERIFY. 

38EXT. EXIT* - 



(14)* ANSN (15), 



P039 section, 

391, MOVE H P0_39" 



TO SE£..T-bi.Q. _ _ 

"MOVE STATEMENT f.11,2" TO SECT-TITLE. 
987654.54321 TO CU5i Dn5. 

9 flZA.5.4 3210.5 1.0. tl.l^..J.llO. 

-776688,5522 TO CIU4. 

"AAAAABCD" TQ A8« 

_" A Z.l/7 7B C L* X Y 1 K.K K ." .TO A kl.6 . 



026040 
026050 
026060 
026070 
026080 

_0?6Q.9_a. 

026100 

026U0 

.fl26420_ 



TO RSTN U). 
C.U5B. 

TO RSTN (5). 
ANSN (1). 
TO AN SN 121. 
TU ANSN 



MOVE 
MOVE 
Mfl.V£ 
MOVE 
MOVE 
MQ.V.E 

OPEN INPUT COIN, 
392. NOTE, NUMERIC NUN-EOITEO ITEM3. 

393,. MOVE .C.115...T.fl...020*._DA2* 0104* C20* . c?3.,. 

MOVE D20 TO RSTN CI). 
MOVE D42 TO RSTN (2). 
MOVE D104'. TO. RSTN i3), 
ADD C20 TO C104B. 
MOVE C1Q4B 
ADD C73 TU 
MOVE C115B 
MOVE 54 TO 
HQVE 54,54 

MOVE 9&7654.54J2 TU ANSN CJ). 
MOVE 54 TO ANSN (4), 

MOVE 76.54.543 j.fl ANSN 15.1m 

MOVE Dl 15 TO C52. 
C104 TO 073, 

D7.3-.T.a.RSXM._X.6J 

-6688.552 TU ANSN (6). 
TU C115B. 

...CI 15.il . ..TXL-HiXAI. CZ1*. 

TO ANSN (7). 
TO 050, UJL5. 

D5Q r.0_ .RJi.IfcL...Cfli.. 

DJL5 TO RSTN (9), 
3210V TO ANSN (8). 

96765. ID ANS.-N..X9).._ 

MOVE 783 TO F1DJ0Y DAN3. 
MOVE F1030 TO RSTN (10). 

_ -MDV.E..JUMi-XQ-aSlN._XJJ-l. - .._. 

MOVE 783 TO ANSN (10), ANSN (11), 
394. NOTE ALPHABETIC ANO ALPHANUMERIC ITEMS 
3J-5.*_ -MDJtE_Aj_JH_A5«— AJUH5*. __ 



MOVE 
— MOVE 

MOVE 
MOVE C52 

MOVE 

MOVE 654.54 

MOVE CUO 

MOVE 

MOVE 

MOVE 

MOVE.. 



MOVE A 5 TO RSTA (1). 

MOVE ANJR5 TO RSTA (2). 

. Mfl¥£_^AAAAA!!_TJl_*iiSA_LU- 
MQVE M AABCD" TO ANSA (2) 
MOVE ALL "Z" TO A7, AN7. 

-MQ-VE- A5-. Til... A 7 f A N f . 

MOVE A7 TO RSTA (3). 
MOVE AN7 TO RSTA {4), 

Mnur "a aaaa" Tn Amsa, 



C08QLTS1 
COBOlTST 

C^BU-LT ST- 

CUBULTST 
C080LTST 

coaoLM-J- 

COBULTST 
COBOLTST 

OOBOLTSJ 

COBULTST 
COBOLTST 

raHUL-TST. 

COBULTST 
COBOLTST 
C.U.B.ULTSI 
COBOLTST 
COBULTST 

...C.Q.B.QLJSX 
COBULTST 
COBULTST 

COBUU.&I... 

COBULTST 
COBULTST 
CU.fi ULIST 

COBULTST 

COBULTST 

COBULTST-.. 

COBOLTST 

COBULTST 

caauLiST.. 

COBULTST 
COBULTST 

-..COBIiL-T-S-T 
COBULTST 
COBOLTST 

.XflaOkTSJ 

COBULTST 
COBULTST 

.C0.B-ULI.SJ: 

COBOLTST 

COBULTST 

- CI1BJ1LXS.T— 

COBULTST 

COBULTST 
C0BU.L.I^1_.. 

COBOLTST 
COBOLTST 

-CflliQLTS.1- 
COBULTST 
COBOLTST 

-COBOL. T-SX-- 
COBOLTST 
COBOLTST 
COBULTST . 



COBULTST 
COBULTST 

COBOLTST 



(1)» ANSA-U-1. 



COBOLTST 
COBULTST 
COBULTST- 



>i 

3 

4 

M 

6 

7 

M 

9 

10 

"I 
12 

13 

»i 
15 

16 

"I 
18 

19 

20 4 

21 

22 

23 { 

24 

25 

26 I 

27 

28 

29 4 
30 

31 

32 M 

33 

34 

35 M 

36 

37 

38 M 

39 

40 

I 

42 

43 

44 ^j 
45 
46 

48 
49 

50 4| 
51 
52 

63 € 

54 

55 

56 (| 
57, 



• • 



i.'i 



In 

i 

n 



«3 
W 
»!, 
»B 
47 
48 
(3 
50 

52 
i4 



026130 
026U0 
020150 
026160 
026170 
026180 
026190 
026200 
026 _ 1.0 
026220 
026230 
026240 
026250 
026260 
026270 
0262fl0 
026290 
02.6.3 DO 
026310 
026320 
026330 
026340 
026350 
0263 60 
026370 
026380 
026 390 
026400 
026410 
026420 
O2643O 
026440 
02 6.4 50 
026460 
026470 

.0.26 48Q 
026490 
026500 

.026510. 
026520 
026530 
Q 2.65 40 
026550 
026560 

.0.2*570. 
026580 
026590 
026 6 QO 
026610 
026620 
026.630. 
026640 
026650 
01*6.60 
626676 
026680 

.______._ 

026700 
026710 
.0167.20 



MOVE AN1A TO RSTA ( i> ) . 
MOVE "aZ$. 77_,CL*XY_KK" T f) ANSA 

MOVE ANSA, ( 50...XQ B_.I._....C__. 

MOVE D2C TO RY2 Of- BSTl OF RS21 
RFX3 OF RF2* RQl* RND* R 

GK ...(.50, 

MOVE RY2 UF M.5C TU RS'IN CI 
MOVE RFX3 OF RF2 TO HbTN (13;. 

HAVE. ..R_l TU R_IJ_ (.._■._•. 

MOVE RND TO RSTfe CIS). 
MOVE ROF (2) TO RSTN (16). 
MOVE BY 2 UF. MIS P TO .RSTN CI/). 
MOVE GN (5) TO HSTM C Id). 
MOVE 54000 TO ANSN (12)' ANSN (17); 
MOVE 54000Q TO AN_J\| (1.3). 
MOVE 54 TO ANSN (18). 
MOVE DUO TO AN6* C"G. 

MOVE AN8 TO G3.T1 . OF. ..CR6a.SC- 

MOVE C-G3 TO RSTN (19). 
MOVE GD OF CRP-SC TO RSTn (20), 

MOVE 4_21 ..1.0... AN5N-..C19.K 

MOVE 76 TO ANSN (20). 
MOVE "IJKLMNOP" TO AGP. 

MOVE AGP TU A6* AN_A C '/ ) . 

MOVE A8 TO RSTA (7). 

MOVE ALL -ERGES TO Cl 10. 
C--G ra DUO. 
C110 TO RSTN (21). 
ALL 57 TO RSTN (22), 

JU,L-*!>7" TO RilNA C2J). 

TO ANSN (?2)> 
TU RSI A (_), 

H.S1A. UO 



(5)* ANSA (6). 

OF RFJ. IN MIScV 
OF (2), RY2 OF MI 

2). 



SP; 



MOVE 

MOVE 

MOVE 

MOVE 
MOVE 5757575,757 TO ANSN (?2)> ANSN (23) 

MOVE "KIMBL" TU RS1A ( _ ) , ANSA C8). 

MOVE-ALL. SPACES. TU 
MOVE SPACE TO ANSA (B), 

396. NOTE MOVE CORRESPONDING. 

397, M.QVE ALL 8. TO CRP-CMP-Sc. M.OVL 

MOVE CORRESPONDING -KP-CMP- 
MOVE Cl OF CRP-CMP-OS TO R3 

MOVE. CC.2 OF. CH.e-CMh-us.TlJ R 

MOVE C« OF CRP-CMP-OS TO RS 
MOVE BBS TO ANSN (_4), 

MOVE 88 TO ANSN C_0 ). 

MOVE SPACES Tu CRP-SC* CRF-035, 
MOVE "A1B2CJU4" TO Gil OF CRP 

j&3_.L-jie_: c.i_erJ___._____ j_l_. 

G32 OF CRP-SC* G13 UF 
G14 OF CRP-SC* G34 OF 

. 635. of CRP-SC, 

MOVE 00023,98 TO G<U OF CRP 
G*3 QF CRP-SC* ti44 OF C 

_ LQ.V E. _ CUR- R-ES P D J_ IU__L___ P.- __; j_ 

CRP-DS3* CRP.-DS4, CRP-DS5. 
MOVE Gil OF CRP-DS1 TO RSTA (9), 

_ M_._____1____E.„____:__H. IH.RSTA _____ 

MOVE G13 OF CHP-DSl TO RSTA (11). 
MOVE G14 OF CRP-DS2 TO RSTA (12), 

I F __G L5__C EL._C.RE_r D S 2_» J_i___Q. _ C R P * P_S3___ VE_ 

TO R S T A ( 1 "3 _ 

MOVE G2S1 _F CRP-Do3 TC RSTA ( 1 <4) . 
IF 645 OF CRP - 0S3 m QU I QF C R_P- PS 4_ M Q V E. 



ZERO 10 CRP -.C MP.- 
SC TO CRP-CMP-OS- 
TN (24), 

_T._....l..2._..it - 

TN (2e), 



G21 OF CRP-DS3. 
-SC/ G21 OF CRP-S 
_Rf -_»£' G22_0F _CR 
CRP-SC/ G33 OF CR 
CRP-SC* G15 OF CR 



OS, 



P-S.C__ 



P-SC, 

p-sc* 



-Sc* G42 CF CRP-Sc* 
RP-SC* G45 OF CRP-SC, 

0-.XR Rr 0J5JU_xR P - S - _. 



COBOlTST 
COBULTST 
CO-ULTST 
COBOLTST 

COBOLTST 
..COBOLTST 

COBULTST 
COBOLTST 
CUBUL.Sf 
COBOLTST 
COBOLTST 
CO-ULTST 
COBULTSI 
COBOLTST 

cu bolts. 

COBULTST 
COBULTST 
COBOL I-ST 

COBULTST 
COBULTST 

coauu'sr 

COBOLTST 
COBOLTST 
COBULTST 
COBULTST 
COBULTST 
COBULTST 
COH-LTST 
COBOLTST 
_0-S_»-i-l ~6-6 
COBOLTST 
COBOL! ST 
.COBULTST 
COBOLTST 
COBOLTST 
COBULTST 
CUBQLTST 
COBULTST 

CUB._L.IS T 

COBULTST 
COBOLTST 
OQBULIS.I. 
COBOLTST 
COBULTST 
.CilB__L.IST_ 
COBOLTST 
COBOLTST 

____________ 

COBULTST 

COBULTST 
CO BULTS X 



G 15 O F CHP -QS3 



.G__.__3F_.C_R.P- fi S3. 



COBOLTST 
COBULTST 
COBOLTST 
COBULTST 
COBOLTST 

____________ 

COBULTST 
COBOLTST 

J_fi_____I_JL 



Mr, 



S5 
56 



026730 
026740 

.026750 
026760 
026770 
026780 
026790 
026800 

..026810 
026820 
026830 
026840 
026850 
026860 
026870 
026880 
026885 
026890 
026900 
026910 
026920 

026930 
026940 
026950 
026960 
026970 
Q26980 
026990 
02?Q00 
027010 
027020 
027030 
02.7 .Qft 

027050 
0270AO 
02.7070 
027080 
027090 
0.2.7.100. 
027110 
02?120 
P27 13Q 
027 ho 
027150 
027.160 
027170 
027180 
027190 
027200 
027210 
.02722(1 
027230 
027240 
027250 

027260 
027270 

JBi7_2flfl_ 



TO RST 
MOVE 
MOVE 

MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE "Al 



A CIS). 
G'4'j OF 
G4 2 
G43 
G44 
GA 
GE 

G3U 1 
G33 
G3S2 
G2T2 
G2T.1 



OF... 

UF 

OF 

Of - 

UK 
OF 
.Of 
OF 
QF 
UF 



B2C30^" 



MOVE "A162" 



C N P - D S <♦ 

CRP-D04 
CRP-DS4 
C(iP-QS5 
CHP-U&'J 
CRP-iJo3 

. c.h.e..-Uo5 

G21 OF 
G31 OF 
(13 4. QF. 

TO ANSA 
ANSA 

.. ANSA, 
TO ANSA 



m 

TO 
TO 
T.Q 

TO 

ro 



RSTA 
R.S.XA. 
RSTA 
HSTA 
RSTa 
KSTA 
HSTA 



c.i/;. 

(18). 
(19 3. 

C2UJ.4 

C21 J. 

(22) 



398E. 



T.a..-HS.TA (21). 

CHP"DS3 TO RSTA 
CHP-0S5 TO HSTA 
CRP-0S5 TO HST..A 
(9)* ANSA (10), 
(H>» ANSA (12), 
C i 1.1 j . AWSA.C21), 
(14), ANSA (22), 



(24), 
(25), 
(26), 



19.£ 



MOVE "A 1 
MOVE "C3 
MOVE "** 
MOVE " 
MOVE "$ 
MOVE " 
MOVE " 
MOVE ALL 
MOVE D73 
MOVE "1898 
MOVE ALL 
MOVE 
MOVE "83 
MOVE 37 
MOVE ZE 

MOVE 

MOVE 

MOVE ALL 

MOVE A 

MOVE 

MOVE 

.MOVE ALL 

MOVE 

MOVE 

MOVE. ALL 

MOVE 

MOVE 

MOVE SEA 

MOVE 
MOVE 26 TO 
MOVE .33 T.Q 
MOVE 3 TO 
PERFORM VE 
i ....XX.IL, 



.".. TO 

" TO 

*23.9 

*23,9 

23,9 

+ 23,9 

3.9 

98 1 

TU R 

989" 

234 

DV4 

42342 

2134, 

RO TO 
0115 
0000 
9 TCI 

LL 11 
GJ ( 
0000 
."A B.C. 
"AB 
AN8 

"ABC 
G14 

"ABC 

CE.3 1 

614 
CVN, 

.:..cva. 

AON. 
R I K Y , 



ANSA (20). 
ANSA (21), 
6" TO ANSA 



8" 
8" 
8" 
8" 

U 



TU 

TU 
TU 

TO 

D73 



ANSA 
ANSA 
ANSA 
ANSA 



(15). 
( 16 J , 
(17). 
(18), 
(19). 



STA (27). 
TO ANSA U? 
T(J 094, 
TO RSTA (28 
'..3 4" TU. ANSA 
Sobfrl TU U 

0113. 

. TQ R.S1A. 12 

0000000 TU 

GI (5), 
RQ...T.Q GINTt 
5) TU WSTa 
To ANSA ( 

." ID ma-. ... 

CABCAB" TU 
TO RSTA (jl 
TQ, G14 QF 
OF ChP-DS* 
ABCAB" TO A 

.0 CR.P-Q..S2. . 

OF cRP"DSi^ 



). 

). 

(26 ) «... 
115. 

ft).. 

ANSA (29) 



(3C), 

30). 

ANSA ""(' 31), 
). 

CRP-DS2, 

TO RSTA (32), 

MS A (32), 

TO HSTA (33) . 



027290 
027300 
273 10 



P040 
AO.U. 



SECTION. 

MOVE "PQ_<|Q" TO &ECT-NO, _ __ 

MOVE "MOVE STATEMENT - EDITED NUMERIC ITEMS 7,11.2,1" 

TO S C C T - TITLE. 
MOV E 00 01.23 T Q El l* El2, fcHl , EH2, £ H3, 



COBULTST 

COfabLTST 

OBBULI.SI. 

COBULTST 

CUBOLTST 

COBlLIST 

COBULTST 

COBULTST 

CO-HUJ-TSI ■■- 
CUBULTST 

COBULTST 
COBULTST 
COBULTST 
COBULTST 

CGB-ULT.SI . 

CUBOLTST 
06"18-69 

XOaULXST 
C080LTST 

COBOLTST 
G-OBOLT-S-T 

COBOLTST 
COBOLTST 

.COBULTST 
COBuLTST 
COBULTST 
COBULTST 
COBOLTST 
COBOLTST 
COBULTST 

COBULTST 
CUBULTST 
COBULTST 
COBOLTST 
COBOLTST 

COBULTST 
COBULTST 
COBULTST 
COflfiLXSl. 
COBULTST 
COBULTST 

COBOLTST 

COBULTST 
CUBULTST 
C-fl B L U . T ST-- 
COBULTST 
COBOLTST 

„CQiO.LLS..T 
CUBULTST 
COBULTST 

JLQflliLiaX.. 
COBOLTST 
COBOLTST 
CjQB0.LI5.T_ 
COBULTST 
COBOLTST 

_£flBJ_LJL___ 



COBOLTST 
COBOLTST 



• t 



4f, 
W 
47 
4fl 

It) 
50 
51 
52 

A3 

V4 
:fl 
S6 



02/320 F.F1* LF2* EFJ. COBGLTST 

02/330 MOVE E^l TO RSTA (1), CQBGLTST 

027340 MOVE U'l TO RiiTA I 2 J ... CObULTST 

02^350 MOVE Eril TO RSTA (3). CObGLTST 

02/360 IF EH2 * EH3 MOVE EH3 TU RSTa (4). COBOLTST 

027370 MOVE EFl TO RSTA. (5J. CQH.ULTST 

02/380 IF EF2 = EF3 M (J V ^ EF3 TU RSTA (.0), CObULTST 

02/390 MOVE " 123" TQ ANSA (1). CObULTST 

02/..400 MO.VE ." QQ.i.23" .lU.ANaA, C2) 4 COBULTST 

02/410 MOVE M ****123" TO ANSA (3). COBOLTST 

02/420 MOVE "**Q0l23" TU ANSA (4). COBOLTST 

02/A.30- ...MflVE ....? Si2a" TO ANSA C5). COBULTST 

02/440 MOVE " 500123" TO ANSA (G). COBOLTST 

02/450 MOVE OlOCb.05 TO Ebl* LB3. COBULTST 

02/460 MO-V-E EB1. TU .RST4..C/J, COBOLTST 

02/470 MOVE EB3 TO «STA (8). COBOLTST 

027480 MOVE "OlOOSOS" TO ANSA (/}, COBOLTST 

02149.0 MOVE :. M OOai00b" TO ANSA cal, COBOLTST 

02/500 MOVE ALL TO LdAu. COBOLTST 

02/510 MOVE EbAL TO KSTA (9). CObULTST 

.02.75.45 KB.V.E .".*.* *.**.*. **.0Q M ...I U AJM&AC.0.9) «. 05-31-66 

02/520 MOVE 1234 TO PEZ1, COBOLTST 

027530 MOVE PEZl TO RSTA (10). COBULTST 

027.540 MOVE " 1*234.00" TO ANSA CIO J. CXJHQLTST 

02/550 MOVE 12.34 TO PEZl. COBULTST 

02/560 MOVE PEZl TO KSTA Ul). COBULTST 

02/570 MOVE " 012.34" IU ANSA Cll). COBULTST 

027580 MOVE 1234.56 TO P£Z2* PE23, COBULTST 

02/590 MOVE PEZ2 TO KSTA (12). COBULTST 

._ .02/600 MQV.E.PE23 XQ . ftST A ... ( 1.3 ) ... CO.BGLT.S.I 

02/610 MOVE "» 1*234,56" TO ANSA (12)* ANsA C13), CQbULTST 

02/620 MOVE ALL TO PEZj, COBULTST 

027630 MQVEPEZ3 IQ..HST.A .C.lfl ) .CO.BUL..T.S-I 

02/640 MOVE +123.79 TO P£Z-L* PeZPL* PeZPR* PeZ-R. COBOLTST 

027650 MOVE PEZ-L TO RSTA (15). COBOLTST 

.027.660 MOVE Pfc.Z-R TQ. RSTA ClAl..... CQBflLT.S! 

02/670 MOVE PEZPL TQ RSTA C \Y) . COBULTST 

02/680 MOVE PLZPK TO RSTA (13). COBULTST 

.02/690. MQVE " 1.23. 79" TO AN^A (15). Cfl.BiJJ.TST 

02/700 MOVE " 123.79 " TU ANSA (16). COBOLTST 

02/710 MOVE " + 123.79" TO AinSA (17), COBULTST 

02/720 MOVE " 123,79 + " TO ANSA (18). CJjBOLLST 

02/730 408. MOVE "456.78 TO p£Z-L* PeZ-H# PeZ^L* PeZPK, COBULTST 

02/740 MOVE PEZ-L TO RSTA (19), CObULTST 

P.2/750 MOVE PEZ-f< TO RSTA_J20). _ _ COBULTST 

02/760 MOVE PEZPL TO RSTA (21), COBOLTST 

027770 MOVE PEZPR TO RSTA (22). COBOLTST 

02/780 MOVE."- 456±/ft« JO _An5_a (19), ANSA S2±1 A _ CQBgkTST 

02/790 MOVE " 456.78-" TO ANSA (a'6)» ANSA (22), COBULTST 

02/800 MOVE 33,33 TO PEFPS* PEF-S. COBULTST 

_. ..J3.2JLfi.lfl.. _M.Q„V_E„PE_FPS TQ. RS1A__. 1211. _ _ ..._ CO BULT ST 

02/820 MOVE PEF-S TO RSTA (24), COBULTST 

02/830 MOVE " +33.33" TO ANSA (23). COBOLTST 

02.7840. MOVE" 33,jj" TO ANSA_(2i),. _ C OBO LTST 

02/850 MOVE -6666 TO PEFPS* PEF-S, COBOLTST 

02/860 MOVE PEFPS TO RSTA (25). COBOLTST 

-..~ Q 2 1 8ZP_ __MO_VE ... P.fc £ - S_I.D_RSI A ( 261. COBOLTST 

027880 MOVE " -6666,00" TO ANSA (25)* ANSA (26), COBOLTST 

02/890 MOVE ALL TO PEM» COBOLTST 

S QZ75.QQ UflJtL E&H._IQ__ailA„Xi/>*. __■__. CO BULTST 






do 

r ll 

:«| 

33 



■.HI 

tl 
l-> 

c 

,46 _ 

46 

I 
4) 

48 

49 

i 50 

»'_ 

52 

B3 

54 

55 

56 

'5!_ 



02/905 
027910 
02/920 
02/930 
02/940 
02/950 
02/960 
02/970 
--Q.2/9.80 
02/990 
028000 
Q.2.8.Q10 
028020 
028030 
0.2.8040 
028050 
028060 
Q-2.BQ7..0 
028080 
028090 
028100 
028110 
026120 
028J 30 

028140 
028150 

02816 
028170 
028160 
028190 
028200 

028210 
0.2 82 2Q 
028230 
028240 

028250 
028260 
028270 
02.82.80 
028290 
028300 
028 310 
028320 
028330 

028340 
028350 
028360 
028370 
0283R0 
028390 

.C_28.iLQQ.. 
0284J0 
028420 

-021430. 



409 



028440 
028450 

-C2.8.46-0... 
028470 
028480 

.JQ2fiAftQ_. 



MOVE "*******,**" 
MOVE 1,23 TO PEH* PE 

PECR* H£D8. 

MOVE PtH TO RSTA 



rU A,\SA(27). 
HO* PEH3, PEFC* PEFD2/ PEFD3, 



MOVE PfcHD TO RST 
MOVE PEH3 TO RST 
MOVE PEFD TO RST 
MOVE PEFD2 TO «S 

M.OVE BLFD3 TU )iS 

MOVE PECR TU «S 
MOVE PLDB TU H 
MOVE " ****** 1.2-3" Tfl 
MOVE "4*****1,23" TO 
MOVE "$***001.23" TO 

KQVE " %U2iH. 

MOVE " $1.23 

MOVE 333,09 TO PEFD2 

MOVE 1234 ,00 TO ..PEFO 

MOVE PEFD2 TO RST 

MOVE PEFD3 TQ RST 

MOVE ..." $33,3,09" T 

MOVE " $1,234.00" T 

MOVE -53210 TO PECR 

MOVE PECR T.Q..RS.T.A 

MOVE PLDB TO RSTA 

MOVE "453*210, OOC 

MOVE "153*210,000 

MOVE 000099.99 TO P 

MOVE ALL 8 TO PEO, 

MOVE 009999.00 

MOVE PEB TO RSTA 

MOVE PLO TO RSTA 

.PIB.fi. TO. RS1A 

" #099.00" 

"000*088.00" 

* 999.1. " 
234567 TQ PEIA 
2345.79 TO PEIS 



(28). 

A (29). 

A. 1301* 

A (31). 
TA (32). 

T.A C-33J, 

TA (34). 
ST A (35). 

A.MSA (.28), ..... - -. _ -... 

AuSa (29). 
AiMiA (30), 

._IiLJkAI.SU (31 )* AH&A..X3ZU ANSA (-33), 

" TO ANSA (3«)# ANSA (35), 
• 

3., _: ._. 

A (36). 



MOVE 
MOVE 
MOVE 
MOVE 

MOVE 

MOVE 



A Cj7), 

Q AN£j4 (36) 

o ansa (3/) 

/ PEU8. 
CM). 

(41). 

r" re ansa 

B" TC ANSA 
Eti, 



TQ PEBB. 
(02). 
<«3). 

TO ANSA 

TQ ANSA 

...TU AM A 



(40), 
( .4 U . 



(42) 
(43) 
.(44.) 



PEIA.. 
PEIS 



UL«iU i..<*aj_ 



MOVE 

MOVE PEIS TO RSTA 
MOVE "GWERTG2345KMh 
MOVE "0#l/23« t 023^45,7" 
MOVE 73.5 TO C73. 
MOVE 520,1 TU C52, 

ADD c.Z.it . L 52-.fi iV-iM- 

MOVE PE23 
MOVE "S 

.M0VE__2 TQ._AUN, 

MOVE 47 TC CVA, 

PERFORM VERIFY, 

AQE, EXIT* 



(46). 
67" TO ANSA (45). 
1.0 ANSA. (46). 



TO RSTA 
593.60" 



JltZi, . . . 
(47). 

TO ANSA 



(47) 



05-31-66 

COdULTST 

C-08-UUTST 
C080LTST 

COBOLTST 
XOBUL-TSX 

CQBQLTST 
COBOLTST 
■■CQBUU'-S-T- 
C08QLTST 
COBOLTST 
..CJjaOLWT- 
COBOLTST 
CQ8ULTST 
CUBULTST 

CQBQLTST 
CQBQLTST 

.CQB01.T.^r 
CQBQLTST 
CQBQLTST 

.C-QBiiLXS-I, 
CUBQLTST 
COBOLTST 
COB.Q.LIS.T 

COBOLTST 
CQBQLTST 

CQB.QLTST 

CQBQLTST 

COBOLTST 

CHBQ.LI.S I . 

CQBQLTST 

CUBQLTST 

.CXiB.QLT.ST 

CQBQLTST 

COBOLTST 

GUML.I5L 

CQBQLTST 

COBOLTST 

cojauiii 

COBOLTST 
COBOLTST 
. CH.BJIL.15.I 
COBQLTST 
CQBQLTST 

CQBQLTST 
COBQLTST 
-CflftOLlAI 
COBQLTST 
CQBQLTST 
CC1BQLT-SLT- 



CQBQLTST 
CQBQLTST 
_CfiflflkIiI_ 



CQBQLTST 

CQBQLTST 

- C Q B QL T S T 



COBOLTST 
COBQLTST 
CtlBQLT-SX- 



• • 



7H 
1 3 ft 



M 
45 
Mi 
117 
4f< 
4rt 
50 
61 
52 
53 
>4 



028500 
028510 
028.520 
028530 
028540 
Q28550 
028560 
028570 
0.285.80 
028590 
028600 
028610 
028620 
028630 
02864Q 
028650 
028660 
028670 
028680 
028690 
0.28700 
028710 
028720 
0287 30 
028740 
028750 
0287 60 
028770 
028780 
028790 
028800 
028810 
028820 
028830 
028840 
02885O 
028860 
028870 
028880 
028890 
028900 
028910 
028920 
028930 
02894Q 

028950 
028960 
D 28 9 70 
028980 
028990 

02.9000 

029010 
02*020 

.029030 
029040 
029050 

-.Q29Q6-0- 

029065 
029070 
0_290 fl p.. 



3" TO SECT-TITLE, 



TO AN.3Q. 



4UE. 



POM SECTION. 

411. MOVE "PC41" TQ SE.Cl-h.Ll. 

MOVE "EXAMINE STATEMENT 7.11 

move oioioonooi ru uuo, 

MOVE +599897.998^9 Tli 01.15. 
MOVE -552525.^525 TQ 0104. 
MOVE "AAZYAXAP" TL A<3. 

MQV.E. "AZ.U59./.C AALXAtllNL J JAA.AAU A.AA3i A" 
MOVE "AAAAAAAAZZZZZZZZ" TO AN16. 
EXAMINE DUO TALLYING ALL 0. 

MOVE TALLY. T.O...K&T.N CD. 

MOVE 5 TO ANSN CD. 
EXAMINE DU5 TALLYING LEADING 9. 

MOVE. TALLY. TO HiTN (2), 

EXAMINE D104 TALLYING LNTiL 
MOVE TALLY 10 Ri»TN (3). 
MOVE. 2 10. ANS.N. t3). 

examine uuo tallying all 1 
ivqve tally to h^tn (4). 

MOV.E QUO ...TO F!$Ta CO, 
MOVE 5 TO ANoN (4). 
MOVE "+2020022002" TO ANSA 
EXAMINE A8 T. ALL TING .LEADING 
BY "8". 

MOVE TALLY TU Hi»TN C5). 
MOVE A8 TO KSTa (2). 
MOVE 2 TO ANSN (5). 
MOVE "BBZYAXAP" TO AnSa C2). 
EXAMINE AN30 T ALL Y I N.G LN T I L . F I Rial 
BY "*". 

TALLY TO RbTN (ft), 

AN30 lUJjT/j Qj, 

15 TO ANSN (6). 
ALL "*" TO ANSA (3). 
AN16 TALLYING ALL "B" REPLACING fl.Y "C", 



FIRST 2, 



REPLACING BY 2. 



CD, 

m a". Replacing 



"N" H£ PLACING. 



MOVE 
MQVE 
MOVE 
MOVE 
.EX.AKI.Nt. 



TQ .ANSA CAL. 

REPLACING BY 



(5) 



MOVE TALLY TO R^TN (7) . 

MOVE AN16 TU RSI A C 4 ) , 

.. M U V.E " AAA AA AAA i-ZllAl Z " 
EXAMINE A8 TALLYING ALL "B" 

MOVE TALLY TO HSTN C8), 

MOVE Afi TO «ajA (5). 

MOVE 2 TQ ANSN (8). 

MOVE "AAZYAXAP" TO ANSm 
E XA M I N.L.. 1 15... .IALLY.1M. LE AIUN.G i_HE£.LA_C_tM HJL 

MOVE TALLY TO RSTN (9), 

MOVE 0115 TO RSTA (6), 

MOVE .Vj.9flaa2Aflfl.4a?. LO ANS.A C6J^ 

EXAMINE DUO REPLACING ALL BY 2, 

MOVE DUO TO RSTA ( t i . 

-MQV-E "..+ 242 22 222 2 2 "-XXL . JUslS_A .. U U — 

EXAMINE A8 REPLACING LEADING "A" BY "B". 

MOVE A8 TO RSTA (8). 

- __Mfl.V£ "RBllAJLAP.". ..ULANAA JC, 8 ).a - _ 

EXAMINE 1)104 REPLACING UNTIL FIRST 2 BY 2. 

MOVE D104 TO HSlA (9), 
MD_VX_"222525252S".- IU^ANSA_..X.9)^ - .._ 



.6....... 



EXAMINE AN16 REPLACING FIRST 
Jt!l¥£._A(iLfi IO...RSTA..CI..O.), . 



A" BY "Z" 



CUBULTST 
COBOLTST 
COBULTST 
COBOLTST 
CUBULTST 
COBULTST 
COBOLTST 
CUBULTST 
..COBOLTST 

COBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
COBULTST 
COBULTST 
COBULTST 
COBOLTST 
COBULTST 
COBULTST 
COBOLTST 
C06.QL1ST 
COBULTST 
COBULTST 
COBULTST 
COBULTST 
CUBULTST 
COBLLTST 
COBOLTST 
COBOLTST 
.. CO BOLTS T- 
COBULTST 
COBULTST 

..coeoLTST 

COBOLTST 

COBOLTST 

COBULTST 

COBULTST 

COBULTST 

CQaULTST. 

COBULTST 

COBOLTST 

CO-flilLISX.. 

COBULTST 

CQBQLTST 

.immiLxsx. 

COBOLTST 

COBULTST 

ClliiQL.IS.I- 

COBOLTST 

COBOLTST 

CX}BLLISX_ 

COBOLTST 
COBOLTST 

. COBULTSJ- 
COBOLTST 
COBULTST 
CO-BilLI^J 
06?»18»69 
COBOLTST 
..CJLBCiklSX. 



2< 

3 

4 

M 

6 
7 

e< 

9 
10 

111 

12 

13 

u( 

15 

16 

"| 

18 

19 

20 < 

21 

22 

23 | 

24 

25 

26 | 

27 

28 

29 I 

30 

31 

32 | 

33 

34 

3 5 | 

36 

37 

38 r 

39 

40 

41 

42 

43 

44 I 

45 

46 



47 
48 
49 
50 
51 
52 
53 
54 
55 
56 

3 



m 



• • 



L_ 



12.i 
\.i 
44 

45 

c. 

I,* 8 ' _ 



02*090 
029100 

Q2.9l.10 

02VJ30 
02^130 
0.29 HO 
029150 
029160 
_Q2,9l.7Q 
029180 
029190 

Q.2? 2.00 

029210 
029220 

029230 
629240 
029250 
02V260 
029270 
029280 
029290 
029300 
029310 

.02.9 32.0. 

029330 
029340 
029350 

029360 
029370 
029380 
029390 
029400 
02.9 41.0 
029420 
029430 
...Q 2.9.440. 
029450 
029460 

...0.294 70 
029480 
029490 

.02.9 5 QO. 
029510 
029520 

.0.2.9530 

029540 
029550 
-0225.6 Q. 
029570 
029580 
_Q2£5J&flL ... 



029600 
029610 

&22&2.Q. 

029630 
029640 

_029.65Q 

029660 
0?9670 
_JQ2i6B0. 



MOVE "ZAaAaAAA-UZZZZZ" TO AuSA (10). 
EXAMINE a8 REPLACING AlL "C" BY "iJ". 

.. EXAMINE A&.....BE.PL.AC.IM....ALL ."B" BY "0", 

MOVE Ad TO RSTA (11). 

MOVE "BRZYaXAP" TO ANSA (11), 

MOVE ALL "A" ...ID... 6.15 Of ORP-0S2. 

MOVE ALL "B" TO u 1 4 01- CHP-i)5>2. 

Examine gis of ckp-us2 replacing all "a" by 

EXAKJNL ...GU,.,.fl.F CRP-.US2 RePLA CLN-U ALL ."B'Lil Y 

examine crp-dS2 tallying all "a" replacing 

MOVE TALLY TO HbTN (10), 

MOVE Sil±.QI C..RP-QS2 TO RSTA C 121, 

WOVE 8 TO ANbN CjO). 

MOVE "8BB8BBBB" TQ mnSa (1<). 

.ZERO 1.JQ. .G.I.MI1 

12345 TO GI (2). 



"C", 

« A f I 

IS — ^ 

BY M B«, 



MOVE 
MOVE 
MOVE 



1H.A 



ALL 8 TO GF2 (1)* GF2 (2). 

EXAMINE. G.I.NT TALLY .jNfi .^LL Q REPL ACJNfi. BY 

MOVE TALLY TO Hi>TN (11). 
MOVE GF2 (2> TU RSTA Q3). 

MOVE.. 1.2 to. .aMn an, 

MOVE 77777? TQ ANSA (13). 

examine gInT Tallying leading *ero replacing by 5. 

MOVE TALLY JO K>IN..( 12). 
•JOVE GI (1) TO KSTa Cm). 
MOVE 5 TO ANSN (12), 
MOVE 5555b Tf) ANSA (14;, 
MOVE QUOTE TO AN1. 

EXAMINE aNI REPLACING ALL QUOTE BY «*" . 

MOVE ANl TO RSTA (19.). 

MOVE "* M TO ANSA (19), 
MOVE 6 TC 010, 

MOVE "K" TO. ANl* 

EXAMINE 010 TALLYING LEADING 6 REPLACING BY 5. 
MOVE i)lO TU RSTA (15). 

MO..V.E.- TALLY TQ M^IK ( 1 3 ) . 

MOVE "F" TO ANSA (15), 
EXAMINE ANl TALLYING UNTIL Ft*ST "K" REPLACING BY ••£• 

MQ.VE IAi.LT. TQ R3J.H Ll'U. . 

MOVE ANl TO RSTA (16), 
MOVE "K" TO ANtiA (16), 
MOVE. ,AU_-9 TQ AN6A. 

EXAMINE AN64 TALLYING ALL 5 
MOVE AN64 TO RSTA ( 1/) , 
- tiO*L -Acu 7 10 AAS A ( 1 7 ) , 

MOVE AN64 TO ANJR8. 



HEPuAClNG BY 7. 



41E 



move Tally 

MOVE 64 TO 

-MOVE 3 IX AUKU 

MOVE 15 TO CVN, 
MOVE 19 TO CVA, 
PERFORM VERIFY, 
EXIT, 



TO RC»TN (15) 
ANSN (15), 



COBOLTST 
COBULTST 

...£iitiJJLT.SJ._. 
COBULTST 
COBULTST 

-JULBilLIiT. 
COBULTST 
COBULTST 

^ COiiLL.T-S-T... 

COBULTST 

COBOLTST 

...C0BOL.L3J.. 

COBULTST 

CUBULTST 

. C afiilLT.SJ 

COBULTST 

COBULTST 
. .C.QJUL.I.SJ 

COBULTST 
COBULTST 
. C-QB.U.L1.S.I.. 
COBULTST 
COBOLTST 

COflOLXST 
COBULTST 
COBOLTST 
COBii.LT.ST 

COBOLTST 
COBOLTST 

CC-BIiL.|.&T 

COBULTST 

CUBULTST 

...0IiJiOL.I-S-.T 

COBULTST 

COBULTST 
COBOL! ST 

COBULTST 
COBULTST 

..C.OB.OL.T.S.I 

COBULTST 
COBULTST 

.£flfiULlSI..._ 
COBULTST 
COBULTST 
CO B OL T ST 
COBOLTST 
COBOLTST 

CO-&0L.T-SJ 

COBULTST 
COBOLTST 

-COBOLTS-L- 



COBOLTST 

COBOLTST 

■CflflilLTST 



COBULTST 

COBOLTST 

-CiiaULXfiX. 



-¥JEfLl.a.^£CULQAL»- 



COBOLTST 

COBOLTST 

-CUB-OLTST, 



li 



12 
13 



16 
18 



20 | 

21 

22 



27 
28 



30 



34 

35 { 

36 

37 

38 ^ 

39 

40 



47 ^ 
48 



52 
53 I 



56 { 

.9 



• • 



l-l 
v; 
Ifi 
1/, 
! 1« 



jv»: 
.:■* 

"I. 
;>h 

I I'll ' 






Ml 

«6 

«.' 
US- 
IS! 
50 
51 
52 
33 
54 
55 
56 



029690 
02*700 
0.2^710 
029720 
029730 
02974 
029750 
029760 
.0.2.9 7.7.0 
029780 
029790 
02.9800- 
029810 
029620 
0.29 a 3.0 
029840 
029850 
.0-29860 
029870 
029880 
.0.29.89 
029900 
029910 
Q 2V 920 
029930 
029940 
029950 
029960 

029970 
029980 
029990 
030000 
.03001.0. 
030020 
030030 
Q3Q04Q 
030050 
030060 
Q3.CLQ..70 
030080 
030090 
30100 
030110 
030120 
-Q.3Pl.30 
030H0 
030150 
030J60 
030170 

030180 
Q30 1 9.0. . 

030200 
030210 
030220 
030230 
030240 
030250 
030260 
030270 
030280 



LlL. 

WRITE A-R FROM HD2 BEFORE ADVANCING & LINES, 

IF AUN <; 1 Q.K > 3 GO TO x<Ql» 

IF AUN = 1 OR 3 GO TO SL1. IK AUN = 2 GO TO SL2. 
SL1. MOVE TC SWH, 

PERFBRM MVTN VARYING 020 tfRQK 1 BY 1 UNTIL C2Q > C V.N, 
MOVE TO INX. 
L«t ADD 1 TC INX, 

IF R.S.TN (IiNXJ K AinSi\ C INjO .ii.0 10 Lb* 

GO TO L6. 
L3, MOVE 1 TC SWH. 

MOVE ."£".. .1.0 8N UN*)., 

L6. IF CVN > INX GU TU L4. 
IF AUN s 3 GC TO Sl2, 
IF. .SWH 5 1 GO TO L7.. . 
U13. WRITE A-R FROM HD 3 BEFORE ADVANCING 6 LlN£S, 
PERFORM CLARY. 
GO TO. VE.. 
L7. MOVE TC INX. 
L88. 

WRITE. A-.k. FHG..M. nDA BLFQuE . AL V ANLI.NU. J UNES. ., 

L8, ADD 1 TC INX, 

IF BN ( INX) s "T" GO Tu L9, 

MOVE . "K" TO N-Aj A-Ni . 

MOVE INX TO INXnU, IN>N. 
MOVE ANSN (INX) TO ANW. 

. MOVE ftSTN (INX) TU R£bUT . 

WRITE A-R FROM HD9 BtfOhE ADVANCING 2 LINES. 
GO TC Llll. 

l9. move inx to- e.i+gw euq2. - 

move "n" to fm* fn?. 

white a-r from hob behjre advancing 2 lines, 

liu. if cvn -> 1nx-g0 '10 l8.. 

move spaces to a-r, 
write a-r befqre advancing b lines. 

.IF AUN *.3 MOVE IO.InX GO To Llfl.. 
PERFORM CLARY. 
GO TO VE. 

SL2. MQVE. .0 TC &.W.T.. 

PERFBRM MVTA VARYING C20 FROM i bY 1 UNTIL C20 > CVA. 
MOVE TO INX. 

L10. ADD 1. TC INX, 

IF RSTA CI NX) t ANSA ClNX) GO TO LU, 
GO TO L12. 
LU. MOVE.. i_ 1_C SwT. _ __ 

MOVE "F M TO BA (INX), 
L12, IF CVA > INX GO TO LlO. 

IF AgN * 3 NE_XT SENTENCE ELSE GO TO Ll&i 
IF SWH = AND S*T[ s Q GO Tq l13 ELSE MOVE TO INX 
GO TC L88. 

Lit i IF. §W.I _* G U. TO. L 1 3«. _ 

SL3. MOVE TC INX. 

WRITE A-R FROM HD4 BEFOhE ADVANCING 3 LINES, 

Uli ADD t 1.0, INX.. _ __ ___ 

IF BA C INX 3 s "T M GO TU LIS. 
MOVE "A" TO N-A> A-N. 

MCV E JJ* Y J . „i N X NO #_ J N X N , _ 

MOVE ANSA CINX) TO ANW. 

MOVE RSTA (INX) TO R£5UT, 

WjUTE A m _3 PROM hJ9_bEFQRE ADVANCING 2 LINES, _ 



CUdULTST 

COBULTST 
CUBULTST 
CGBQLTST 
COBOLTST 
COBULTST 
CUBULTST 
COBOLTST 
CGB.QLTST 
COBOLTST 
COBULTST 
COBULTST 
COBULTST 
COBULTST 
COBULTST 
COBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
COBULTST 
COB U LIS J 

COBOLTST 
COBOLTST 
C.GB.ULTST 

CUBULTST 
COBULTST 
COBULTST 
COBULTST 
COBULTST 

■frawiw - 

COBULTST 
COBULTST 
.CUBULTST 
CGBQLTST 
COBOLTST 
COBULTST 

COBOLTST 
COBOLTST 
CjQQDu.TS.I- 
COBOLTST 
COBULTST 
C.QB_gL.LSl. 
CUBULTST 
CUBULTST 
CflBUL TS T 
COBULTST 
COBOLTST 
CpBGi_TST 
COBOLTST 
CUBULTST 
..£DBO_LTSL 
COBOLTST 
COBOLTST 

COBOLTST 
COBOLTST 
COBOLTST 

CGBQLTST 

COBOLTST 
COBOLTST 



1* 



I 
f. 






.?« 
■ir, 
;n 
:« 
m 



.3:1 

k'" 

41 
4 J 
43) 
« 

PL 
i 46 
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030290 GO TO LU2. CQBQLTST 

030300 L15. MOVE I\X 10 EK01* ENOi. CQBuLTST 

0.30310. MUVE "A" ...ID FMi FA2* - ._... C.U.b.uL.J.S.I... 

030320 WRITE A-R FROM HOB 8EF URE ADVANCING 2 LINES. CQ8ULTST 

030330 1112, IF CVA > INK GO TO Lit. COBOLTST 

JSi.9J.ftO MOVE SPACES TO. A-R. CatiO.LT.iLt 

030350 WRITE A-R BEFORE ADVANCING 5 LINES. CQBULTST 

030360 PERFORM CLARY. CQB0LTST 

Q-3.P-3.zq aoiovE. cubulist 

030380 MVTA. MOVE «T" TO BA CC20J. COBQLTST 

030390 MVTN. MOVE "T" TO BN CC20). COBOLTST 

Q.3M0Q RC1. WRITE ..A-R FROM (HQ.6 BEFORE- .ADVANCING .6 Un£S. .aiB.QL.TSI 

030410 VE. EXIT. CUJJuTST 

030420 CLARY SECTION, COBOLTST 

0.30430 M9 7, MO.VE 1 T..G-...C2Q,,, COB.CLTS-T 

030440 GO TO M*8» M96, M98 DEPENDING ON AUN , COBQLTST 

030450 M98. PERFORM M<J9 VARYING C20 Frqm 1 BY 1 UNTIL C20 > 50, CQtiQLTST 

030460 .IF... AUN.. a 3 ... GO TO- M96. - - -.- eaBGLT-S-J 

030470 GO TO MCE. COBOLTST 

030480 M96. MOVE 1 TO C20. COBLLTST 

Q30490 PERFORM M95 VARYING €20 FHQH 1 BY 1 ..OMlt C2U >...5H # .._ -X&BDL-T.S-T- 

030500 GO TO MCE. COBULTST 

030510 M99, MOVE ZERCF.S TO RSTN (C^O), anSn (C20), CObULTST 

O.3O52O M95* MOVE 5.PACLS IU. HSTa (020), .A w js« U20-1* . Bl\ CC2Q ) r. BA. { C..20.2 . LOb.ULT.ST 

030530 MCE. EXIT. COBOLTST 

030540 END-OF-JOB. CQdULTST 

99.9999 ENO-OF-JOB.t-LAST CAUL ON QTAeL. . .O0OG00OCUQ00QOQ0OQ0O.0OOOOOO0O00LQO0U0O00 
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LABEL OOOOOOOOOPRINTF.Kool/blOOCC LX Ob JEC f/rtEAU;F ILE SGURCEf I LE = S YMBOl/MSTEST; END* 
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LABEL. OOOOOOOOOHRHTEMOOl/blOOCC LX Qb JEC T /Rt AL) ; Ft Lb" SGURCEK I lEsSYMHGl/TSUUMP; EnD ♦• 



OBJECT /READ 
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